Дан массив из n чисел. Найти произведение тех чисел, которые имеют последние цифры 1 и...

Question

Дан массив из n чисел. Найти произведение тех чисел, которые имеют последние цифры 1 и 5,иначе посчитать количество. Помогите пожалуйста!

Answer 1

Var a: array [1..1000] of integer; i, n, k: integer; m: longint;
begin
     read(n);
     for i := 1 to n do
         read(a[i]);
     m := 1;
     k := 0;
     for i := 1 to n do
     if (a[i] mod 10 = 1) or (a[i] mod 10 = 5)
     then
         m := m * a[i]
     else
         k := k + 1; {Я понял задание так: если числа не оканчиваются на 1 или 5, то подсчитать их количество}
     writeln('Multiplication: ', m);
     writeln('Other numbers: ', k);
end.