Дан массив, элементы которого заданы датчиком случайных чисел на интервале [-20, 25]. Размер массива произвольный. Найти наименьший элемент в массиве и его порядковый номер.

Question

Информатика

Тавифа

9 июля, 07:30

Дан массив, элементы которого заданы датчиком случайных чисел на интервале [-20, 25]. Размер массива произвольный. Найти наименьший элемент в массиве и его порядковый номер.

+5

Ответы (1)

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

Каллимах · Answer 1

var

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

i, min, k:integer;

begin

randomize;

for i:=1 to 10 do begin

a[i]:=random (46) - 20;

write (a[i],' ') ;

end;

writeln;

min:=a[1];

k:=1;

for i:=2 to 10 do

if a[i]
min:=a[i];

k:=i;

end;

writeln ('Min: ', min) ;

writeln ('Index: ', k) ;

readln;

end.