В одномерном массиве А (10) найти минимальный элемент.

Question

Информатика

Снежана

26 мая, 03:59

В одномерном массиве А (10) найти минимальный элемент.

+2

Ответы (2)

Знаете ответ на вопрос?

Яков · Answer 1

Яков 26 мая, 05:17

0

Min:=A[1];

for i:=1 to 10 do

if min

Юнонка · Answer 2

Program massiv;

var i, min: integer;

a: array[1 ... 10] of integer;

begin

writeln ('Введите элементы массива') ;

for i:=1 to 10 do

begin

write ('a[', i,']-') ;

readln (a[i]) ;

end;

min:=a[i];

for i:=2 to 10 do

if min>a[i] then

begin

min:=a[i];

end;

writeln ('Наименьший элемент в массиве ', min) ;

end.