Вводится последовательность ненулевых чисел, 0 – конец последовательности. Определить...

Question

Вводится последовательность ненулевых чисел, 0 – конец последовательности. Определить наибольшее число в последовательности.

Answer 1

Var a,max:integer;
begin
  max:=0;
  repeat
     readln(a);
     if a>max then max:=a;
  until a=0;
  writeln('max: ',max);
end.

Вариант с циклом while

var a,max:integer;
begin
  writeln('Введите число: ');
  readln(a); max:=a;
  while a<>0 do begin
   writeln('Введите число: ');
   readln(a);
   if a>max then max:=a;
  end;
  writeln('max: ',max);
end.

Comments

Только вот Ваш ответ здесь появился позже. Так кто тут накопировал?

---

Ну да, было весело. А что вы предложили?

---

Я понимаю, что первое решение работает на ряде положительных чисел, но надо как-то заставить учащихся не просто копировать наши решения, а еще проверять и обдумывать. А ваши ахххххх этому процессу немного помогут