Как вычислить минимум из нескольких чисел? И максимум тоже? - Pascal ABC

Формулировка задачи:

Как вычислить минимум из нескольких чисел? И максимум тоже?

Код к задаче: «Как вычислить минимум из нескольких чисел? И максимум тоже? - Pascal ABC»

textual
var
  i, a, n, max, min : integer;
begin
  max := -maxint;
  min := maxint;
  write('сколько чисел вы хотите ввести? ');
  readln(n);
  for i := 1 to n do
  begin
    write('введите 1 число: ');
    readln(a);
    if a > max then max := a;
    if a < min then min := a
  end;
  writeln('максимум: ', max, ', минимум: ', min)
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

14   голосов, оценка 3.786 из 5


СДЕЛАЙТЕ РЕПОСТ