Question

в массиве из 20 чисел вычислить сумму кратных 5 элементов. На языке Паскаль и с объяснением пожалуйста. Очень надо, помогите пожалуйста​

Answer 1

Ответ:

Объяснение:

Что тут объяснять, просто считаем количество таких элементов. count-наш счётчик.

var a[20]: array of integer; count, x, i: integer;

begin

count := 0;

for i :=0 to 19 do begin

readln(a[i]);

if a[i] mod 5 = 0 then count := count + 1;

end;

write(count);

end.