Напишите программу, которая вводит с клавиатуры числа до тех пор, пока не будет введено...

Question

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

Answer 1

Program N94780249;
const
  s: longint = 0;
var
  x: longint;
  t: string;
  e: integer;
begin
  writeln('Вводите целые числа (0 - окончание ввода) : ');
  repeat
    repeat
      write('> ');
      readln(t);
      val(t, x, e);
      if e <> 0 then
        writeln('Ошибка! Повторите ввод. ')
    until e = 0;
    s += x
  until x = 0;
  if s = 0 then
    writeln('Числа не вводились. ')
  else
    writeln('Сумма введённых чисел = ', s, #10);
  write('Для завершения работы нажмите Enter...');
  readln
end.

Comments

Эм? В условии про сумму введенных чисел ничего не говорилось.

---

и сразу вы указываете s как константу, и в ходе программы хотите ее изменять..

---

перед тем как воровать чье-то решение, хотя бы удостоверились, что оно подходит под данное условие задачи -_-

Answer 2

Решение в прикрепленном файле :) 

Comments

можно вопрос? а почему вы min и max приравниваете к a?

---

а что не так-то?

---

вот же ш.. немного подправить надо решение, оплашался я

---

изменил, теперь покатит

---

хм.. а если ввести просто 0 то он выдаст max=1 min=1

---

Ну вообще выводить будет 0.. но и это я поправил.