Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.