Question

Дан целочисленный массив из 30 элементов. Элементы массива могут принимать значения от 0 до 1000.Напишите программу, позволяющую найти и вывести количество элементов массива, кратных трём, запись которых заканчивается цифрой 1.
Паскаль АБС

Answer 1

// PascalABC.Net 3.0, сборка 1088
const
  n=30;
var
  a:array[1..n] of integer;
  i,k:integer;
begin
  Randomize;
  Writeln('*** Исходный массив ***');
  k:=0;
  for i:=1 to n do begin
    a[i]:=Random(1001);
    Write(a[i],' ');
    if (a[i] mod 3 = 0) and (a[i] mod 10 = 1) then Inc(k)
  end;
  Writeln;
  Writeln('Количество найденных элементов равно ',k)
end.

Тестовое решение:
*** Исходный массив ***
503 187 764 452 351 819 339 940 681 369 938 874 639 212 633 825 983 830 121 801 889 36 479 14 357 382 631 8 402 61
Количество найденных элементов равно 3

Answer 2

Спасибо тебе огромное!)

Answer 3

Пожалуйста. Для "спасибо", чтобы не писать, тут есть синяя кнопочка.

Answer 4

я и сюда,и на кнопочку)

Answer 5

Когда задания и решения принимаются в архив решенных, комментарии приходится удалять вручную. Не создавайте людям лишней работы))

Answer 6

Хорошо