Ребят, помогите пожалуйста, очень надо)))) Напишите программу, в которой осуществляется ввод целых чисел ( ввод осуществляется до тех пор, пока не будет введен ноль) и определение максимального (наибольшего) из введенных чисел....

Экономика
Ребят, помогите пожалуйста, очень надо)))) Напишите программу, в которой осуществляется ввод целых чисел ( ввод осуществляется до тех пор, пока не будет введен ноль) и определение максимального (наибольшего) из введенных чисел. Используйте оператор repeat. Программу нужно написать в паскале.
Гость
Ответ(ы) на вопрос:
Гость
uses crt;var max:real;i,n:integer;beginn:=1;repeatwriteln('введите число ');readln(i);if n=1 then max:=i;if max