СРОЧНО!!!! ПАСКАЛЬ!!! Напишите программу, которая в последовательности натуральных...

Question

СРОЧНО!!!! ПАСКАЛЬ!!! Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, оканчивающихся на 0. Программа должна вывести одно число – количество чисел, оканчивающихся на 0. Входные данные: 5 18 10 48 50 44 Выходные данные: 2

Answer 1

Ответ:

var

n,i,a,max: integer;

begin

readln(n);

max := -1;

for i := 1 to n do

begin

readln(a);

if (a mod 10 = 3) and (a > max) then

max := a;

end;

writeln(max)

end.

Answer 2

// PascalABC.NET

begin

 var n := ReadInteger;

 ReadSeqInteger(n).Count(p -> p mod 10 = 0).Print

end.