Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

Пусть дано 100 целых чисел, которые вводятся по одному. Найдите количество элементов больших числа 10 и кратных 3

Ответ оставил Гость

Program Pr1;
uses crt;
var mas:array[1..100] of integer;
i,a:integer;
Begin
clrscr;
a:=0;
for i:=1 to 100 do begin
read(mas[i]);
if (mas[i]>100) and (mas[i] mod 3=0) then a:=a+1;
end;
writeln(a);
end.