Регистрация
Людочка6789
05.01.2023 23:21
Информатика
Есть ответ 👍

Как это можно расписать?

195
449
Посмотреть ответы 1

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

Diana4441
Diana4441
4,5(12 оценок)
Var       n, max, i, d: integer; begin       readln(n);       max : = 0;       for i : = 1 to n do       begin               readln(d);               if (d mod 10 = 9) and ((max < d) or (max = 0)) then                       max : = d;       end;       writeln(max); end.

Популярно: Информатика