Помогите пожалуйста
1. Найти максимальное значение среди всех элементов массива.
2. Найти минимальное значение среди всех элементов массива.
3. Найти минимальное и максимальное значения среди всех
элементов массива.
(Паскаль)

А у меня в школе такое примут, просто учитель, вроде не так показывал делать?

Вы просили написать на паскале, я написал на паскале. Я не знаю как учат Вас в школе. Все нужно указывать в условии

Спасибо

// PascalABC.NET 3.3, сборка 1576 от 16.11.2017// Внимание! Если программа не работает, обновите версию!beginvar a:= ReadlnString('Введите массив').ToIntegers;Writeln('Максимальное значение: ', a.Max);Writeln('Минимальное значение: ', a.Min);end.

//Pascalvar  A: array [1..5] of integer;  min, max: integer;  i: byte;begin  writeln('Заполнение массива.');  for i := 1 to 5 do  begin    write('А[', i, '] = '); readln(A[i]);  end;  writeln;  Max := A[1]; Min := A[1];  for i := 1 to 5 do  begin  if Max < A[i] then Max := A[i];  if Min > A[i] then Min := A[i];  end;  writeln('Максимальное = ', Max);  writeln('Минимальное = ', Min);  writeln('Максимальное и минимальное = ', Max, ' и ',Min);end.