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

1

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

2013-04-10T19:47:03+04:00

program findmax;
const n = 10;
var
max,i:integer;
begin
max := -1111;
repeat begin
readln(i);
if max < i then max:=i;
end;
until i = 0;
writeln(max);
end.

 

 

 

 

i - вводимое число