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

Question

Информатика

Леонтий

30 июля, 15:17

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

+1

Ответы (1)

Знаете ответ?

Тена · 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.