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

Question

Информатика

Ермил

10 сентября, 11:03

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

+5

Ответы (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.