Напишите программу,вводящую целые числа до 0, и определяющую максимальное из введенных чисел. Сделать прошу в паскале.Заранее спасибо.

1

Ответы и объяснения

2013-03-05T15:38:39+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

var max,n:integer;
Begin
    read(n);
    max := n;
    while(n<>0) do begin
        if max < n then max:=n;
        read(n);
    end;
    writeln(max);
End.