Последовательность из 10 чисел

Задание:

Последовательность из 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.

Знаете другой ответ?

Отправить свой ответ