Подсчитать количество элементов массива, кратных 3 и больших 50 в массиве А {1 ... 10}

Question

Информатика

Агрипинка

31 марта, 16:47

Подсчитать количество элементов массива, кратных 3 и больших 50 в массиве А {1 ... 10}

+4

Ответы (1)

Знаете ответ?

Кирилл · Answer 1

Var

a:array[1 ... 10] of integer;

i, k:integer;

begin

for i:=1 to 10 do begin

write (i,'-й элемент: ') ;

readln (a[i]) ;

end;

k:=0;

for i:=1 to 10 do

if a[i]>50 and a[i] mod 3 = 0 then

k:=k+1;

writeln (k,' чисел') ;

end.