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

134

212

Посмотреть ответы 2

Ответы на вопрос:

УчебныйГод

Информатика

4,7(8 оценок)

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.