Question

Заполнить массив из 10 элементов случайными числами в интервале [10,100] и найти минимальный и элемент массива и его номер

Answer 1

program mas_min_el_i_no;

const n=10;

var

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

i,m,k:integer;

begin

for i:=1 to n do

begin

a[i]:=random(91)+10;

write(a[i],' ');

end;

m:=101;

k:=0;

for i:=1 to n do

if a[i]<m then

begin

m:=a[i];

k:=i;

end;

writeln;

write(m,' ',k)

end.