Ответ:

1.

var a:array [1..20] of integer;

i,m:integer;

begin

for i:=1 to 20 do

begin

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

readln(a[i]);

end;

writeln;

write('Массив ');

m:=a[1];

for i:=1 to 20 do

begin

write (a[i], ' ');

if a[i]<m then m:=a[i]

end;

writeln;

writeln ('Наименьший элемент ',m)

end.

2.

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

i,mi:integer;

begin

write('Массив ');

for i:=1 to 10 do

begin

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

write (a[i], ' ')

end;

writeln;

mi:=1;

for i:=2 to 10 do

if a[i]<a[mi] then mi:=i;

writeln ('Номер наименьшего элемента ',mi)

end.