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

Question

Информатика

Дюся

15 июня, 05:02

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

+1

Ответы (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.