Есть ответ 👍

Информатика 8 класс б 2 вариант ответы

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

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

vevvrqc
4,7(69 оценок)

Где как я отвечу )

Begin   var n, i: integer;   var max, k: real;   write('n = ');   readln(n);   readln(max);   for i : = 2 to n do   begin     readln(k);     if (k > max) then max : = k;   end;   writeln('> ', max); end.

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