ввод целых чисел, пока не будет ноль и определение максимального из введеных чисел.

[Vlad1234]

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

[Dvoishnik]

var
max,
wr: integer;
begin
 max:=-32 768;
 repeat
  Write('введите целое число: ');
  readLn(wr);
  if wr>max then max :=wr;
 until wr = 0 ;
 write('наибольшее число :');
 writeln(max);
end;

[ViktorR]

Это решение не совсем верное. Достаточно ввести сразу ноль, что бы понять это.
Ноль - признак завершения ввода и он не должен обрабатываться с другими числами.
К тому же число -32 768 не является числом из набора введённых чисел.
Моё предложение:

var max, wr, nam : integer;
   flg : boolean;
   nam := 0;
begin
   Writeln('Вводите целые числа: ');
   Writeln('Для завершения введите ноль (0)');
   flg := false;
   while true do
   begin
      readLn(wr);
      if wr = 0 then
         break;
      if NOT flg then {первое число}
      begin
        flg := true;
        max := wr;
        nam := 1;
      end
      else            {последующие числа}
         if max < wr then
         begin
            max := wr;
            nam := nam +1;
         end;
   end;
   if nam = 0 then
      writeln('Нет введённых чисел!')
   else 
      write('Введено: ', nam:6, ' чисел. Наибольшее введённое число :', max:6);
end.

Не проверял!!.

Как-то так, ...

[Dvoishnik]

Сообщение от ViktorR

Это решение не совсем верное. Достаточно ввести сразу ноль, что бы понять это.
Ноль - признак завершения ввода и он не должен обрабатываться с другими числами.
К тому же число -32 768 не является числом из набора введённых чисел.
Моё предложение:

var max, wr, nam : integer;
   flg : boolean;
   nam := 0;
begin
   Writeln('Вводите целые числа: ');
   Writeln('Для завершения введите ноль (0)');
   flg := false;
{по заданию repeat использовать надо}
   while true do 
   begin
      readLn(wr);
      if wr = 0 then
         break;
      if NOT flg then {первое число}
      begin
        flg := true;
        max := wr;
        nam := 1;
      end
      else            {последующие числа}
         if max < wr then
         begin
            max := wr;
            nam := nam +1;
         end;
   end;
   if nam = 0 then
      writeln('Нет введённых чисел!')
   else 
      write('Введено: ', nam:6, ' чисел. Наибольшее введённое число :', max:6);
end.

Не проверял!!.

Как-то так, ...

-32 768 - разве не целое число? это минимальное число которое может быть введено с типом интегер, зачем нагружать программу проверками?

var
max,
wr: integer;
begin
 max:=-32 768;
 repeat
  Write('введите целое число: ');
  readLn(wr);
 if wr=0 then break ; // так лучше? 
  if wr>max then max :=wr;
 until wr = 0 ;
 write('наибольшее число :');
 writeln(max);
end;

[Serge_Bliznykov]

Сообщение от Dvoishnik

-32 768 - разве не целое число? это минимальное число которое может быть введено с типом интегер

ошибаетесь. Тип Integer - компиляторозависимый (зависит от разрядности приложения).
это раз.

второе, чем Вас проверки не устраивают?

var
  max,  wr: integer;
  isFirst : boolean;
begin
  isFirst := true;
 repeat
  Write('введите целое число (0 - конец ввода): ');
  readLn(wr);
  if wr<>0 then begin
     if  isFirst then begin
        max := wr;
        isFirst := false;
     end
     else
       if wr>max then max :=wr;
   end
 until wr = 0 ;
 if isFirst then WriteLn('Не было введено ни одного числа, только ноль!')
 else 
   WriteLn('наибольшее число : ', max);
end.

[Вадим Мошев]

Dvoishnik
Хотел бы добавить.
Все числа следует записывать без разделителей.
Вы написали

max:=-32 768;

Этого делать нельзя - программа заругается.

[Serge_Bliznykov]

Сообщение от Вадим Мошев

Все числа следует записывать без разделителей.
Этого делать нельзя - программа заругается.

точно так.

ну тогда ещё в конце программы должен быть END. (с точкой) (у вас точка с запятой)

[skylorens]

Сообщение от Vlad1234

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

var n, m: integer;
begin
n:=0;
m:=0;
repeat
readln(n);
if n>m then m:=n;
write(m);
until n=0
end.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Serge_Bliznykov]

skylorens, у Вас не корректный код.
попробуйте ввести числа
-10 -5 -17 0
и скажите, что выведет программа.
это раз.

второе. полтора года назад эту проблему уже обсудили и выше есть решения

третье. код нужно оформлять.