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

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


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.


Похожие ответы
  1. Вычислить сумму ряда

  1. Ввести трехзначное число .Вычислить корень квадратный второй цифры

  1. Найти минимум среди сумм элементов диагоналей, параллельных главной диагонали матрицы.

  1. Помогите решить, пожалуйста Вычислить y=tg(x+2)+ctg^2x(ctg(x+1)-tgx), при х=30 градусов, оформив в виде функций вычисление тангенса и котангенса.

  1. Нужно написать программу, в которой пользователь вводит альфа(alpha), а программа бы считывала z1=cos в квадрате от разности ((3/8)*pi-(alpha/4))-cos в квадрате от суммы ((11/8)*pi+(alpha/4)) z2=(корень из 2-х/2)*sin от дроби (alpha/2)

  1. Вычислить значение выражения. При этом найти область определения функций и обеспечить необходимую реакцию программы на некорректные ситуации.

  1. Вычислить значение выражения. При этом найти область определения функций и обеспечить необходимую реакцию программы на некорректные ситуации.

  1. Треугольник задан координатами своих вершин. Вычислить длины сторон треугольника. Для нахождения длин сторон треугольника воспользуемся формулой нахождения расстояния между двумя данными точками s = ((x2 - x1)^2+(y2-y1)^2)^(1/2), где (x1,y1) и (x2, y2) - это координаты начала и конца отрезка. Пожалуйста помогите решить)

  1. Составить алгоритм и написать решение задачи на Паскале: Вычислить: где х - произвольное число, введенное пользователем с клавиатуры. Помогите пожалуйста! Решение желательно на уровне 10-11 класса.