Написать программу вывода на экран положительных чисел массива, кратных числу 5.

Question

Информатика

Юльич

12 июня, 21:28

Написать программу вывода на экран положительных чисел массива, кратных числу 5.

+3

Ответы (1)

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

Вадюша · Answer 1

Var a:array[0 ... 1000] of integer;

i, k, n:integer;

begin

readln (i) ;

for n:=1 to i do (заполняем массив)

readln (a[n]) ;

for k:=1 to i do

if (a[k]mod 5=0) and (a[k]>0) then

writeln (a[k]) ;

end.