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

Question

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

Comments

Всё я сам решил. Кому надо вот: program rno;var a:array[1..5]of integer;i,min:integer;beginmin:=a[1];for i:=1 to 5 doreadln(a[i]);if a[i]<min then min:=a[i];writeln('Минимальное число=', a[i]);end.

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.

Comments

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

---

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

---

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

---

Так замени) Остальное-то должны были проходить)