Регистрация
яна200320032003
12.11.2022 17:02
Информатика
Есть ответ 👍

Вводится n чисел. найти наибольшее.(паскаль авс)

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

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

Joan36
Joan36
4,7(76 оценок)
Program max; var     a: integer; {само проверяемое число}       m: integer; {максимально число} begin m: =0; {начальное значение максимального числа} writeln('введите ваше число: ', '(если захотите выйти, напишите ноль)': 3); readln(a); while (a < > 0) then begin           if (a > m) then begin           m: = a; end;             readln(a); end; writeln('максимально число: ', m: 3); end.
sashkatimoshka
sashkatimoshka
4,4(83 оценок)

1

3

4

8

Объяснение:

Имя не может содержать пробелы, запятые, обратную косую черту или точки (кроме периода, который отделяет имя от расширения). Имя не может быть одним из следующих зарезервированных имен файлов: CLOCK $, CON, AUX, COM1, COM2, COM3, COM4, LPT1, LPT2, LPT3, LPT4, NUL и PRN. Имя должно начинаться с буквы.

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