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

1

Ответы и объяснения

2012-03-13T00:06:38+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

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.