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

Question

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

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.