Нужно найти минимальное число из массива и вывести его на экран. Массив A: array [1..5] of integer;
Нужно найти минимальное число из массива и вывести его на экран. Массив A: array [1..5] of integer;
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы