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

Zahardenicuk Zahardenicuk    3   07.03.2019 16:20    2

Ответы
poshel0naher poshel0naher  24.05.2020 03:35

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика