Program mi; Var n, ch, i, max:integer; begin max:=1; write('Введите кол-во чисел в...

0 голосов
71 просмотров

Program mi; Var n, ch, i, max:integer; begin max:=1; write('Введите кол-во чисел в последовательности -> '); Readln(n); writeln('Введите последовательность: '); for i:=1 to n do begin write('-> '); readln(ch); if ch > max then max:=ch; end; writeln('Максимальное число: ', max); end. Нарисуйте блок


Информатика (88 баллов) | 71 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

Блок-схема в приложении.


image
(2.1k баллов)
0

Нашёл 2 ошибки. Можно снова отправить на исправление?