С клавиатуры вводятся 20 чисел. Найти произведение чисел кратных 5. Найти количество неотрицательных чисел. Решить задачу эту задачу надо в Turbo Pascal, методом repeat until или while if

Question

Информатика

Лавиния

26 января, 01:14

С клавиатуры вводятся 20 чисел. Найти произведение чисел кратных 5. Найти количество неотрицательных чисел. Решить задачу эту задачу надо в Turbo Pascal, методом repeat until или while if

+1

Ответы (1)

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

Леруха · Answer 1

Отметь как лучшее!

program qq;

var a:array[1 ... 20]of integer;

i, n, Pro:integer;

begin

for i : = 1 to 20 do begin

readln (a[i]) ;

end;

Pro : = 1;

for i : = 1 to 20 do begin

if a[i] mod 5 = 0 then

Pro : = Pro * a[i];

end;

if a[i] > = 0 then

n : = n + 1;

end.