Question

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

С клавиатуры вводится n чисел. Найти максимальные.

Answer 1

Сам пременные объявишь

begin

 read(max);

 read(min);

 while(n <> 0) do // пока не равну нолю делать то то. ноль - знак окончание ввода чисел

  if max < min then min := max;

 writeln(max);

end.