Question

Нужно найти минимальное число из массива и вывести его на экран. Массив A: array [1..5] of integer;

Answer 1

var
  a: array [1..5] of integer;
  i: byte;
  k: integer := Integer.MaxValue;

begin
  for i := 1 to 5 do
    readln(a[i]);
  for i := 1 to 5 do
    k := Min(k, a[i]);
  writeln(k);
end.

Answer 2

Это паскаль? Просто у нас ещё не было byte MaxVlue

Answer 3

первое, чтобы уменьшить немного ресурсоёмкость (замени на integer), а вторая, чтобы не парится, замени на 999999

Answer 4

Мне это решение не подойдёт, мы это не прошли, точно поймёт, что списал откуда-то