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

Question

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

Answer 1

//Pascal
var
  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.

---

Comments

Спасибо

Answer 2

// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
var a:= ReadlnString('Введите массив').ToIntegers;
Writeln('Максимальное значение: ', a.Max);
Writeln('Минимальное значение: ', a.Min);
end.

Comments

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

---

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