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

Question

Информатика

Костя

Сегодня, 10:19

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

+2

Ответы (1)

Знаете ответ на вопрос?

Славуся · Answer 1

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.