Заполнить массив из 8 элементов числами с клавиатуры найти и вывести их минимальный элемент

Question

Информатика

Инюта

21 апреля, 04:55

Заполнить массив из 8 элементов числами с клавиатуры найти и вывести их минимальный элемент

+1

Ответы (1)

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

Линуся · Answer 1

Program zg;

Var A: array [1 ... 8] of integer;

i, min: integer;

begin

for i: = 1 to 8 do

read (A[i]) ;

min:=a[1];

for i:=1 to 8 do

if a[i]
writeln (min) ;

end.