ТутРешу.Ру

Помогите пожаалуйста с информатикой

Задание:

Помогите пожаалуйста с информатикой. Решение задачи нужно написать на языке программирования Turbo Pascal. (решить в паскале) С клавиатурывводится n чисел. Найти максимальные.

Решение:

Сам пременные объявишьbegin read (max); read (min); while (n <> 0) do // пока не равну нолю делать то то. Ноль — знак окончание ввода чисел if max < min then min: =max; writeln (max); end.




Знаете другой ответ?

Отправить свой ответ