Последовательность из 10 чисел. Определить сколько чисел заканчивается 0
Последовательность из 10 чисел. Определить сколько чисел заканчивается 0
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы