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

Question

Информатика

Степа

4 октября, 16:49

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

+5

Ответы (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.