Последовательность из 10 чисел. Определить сколько чисел заканчивается 0

Question

Информатика

Нинуха

7 декабря, 13:03

Последовательность из 10 чисел. Определить сколько чисел заканчивается 0

+4

Ответы (1)

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

Геруся · Answer 1

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

n, i:integer;

Begin

{vvod massiva skopirovat suda}

for i: = 1 to 10 do begin

if a[i] mod 10 = 0 then

n:=n+1;

end;

writeln (n) ;

End.