Напишите программу которая заполняет массив из 20 элементов случайными числами на отрезке на отрезке [50; 150] и находит в нём минимальные и максимальные элементы и их номера. 50

const n=20;

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

i,max,maxi,min,mini: integer;

begin

write('массив: ');

for i: = 1 to n do

begin

a[i]: =random(101)+50;

write (a[i],'   ')

end;

max: =a[1];

maxi: =1;

min: =a[1];

mini: =1;

for i: = 1 to n do

begin

if a[i]> max then

begin

max: =a[i];

maxi: =i

end;

if a[i]< min then

begin

min: =a[i];

mini: =i

end

end;

writeln;

writeln('максимальный элемент ',max,' и его номер ',maxi);

writeln('минимальный элемент ',min,' и его номер ',mini)

end.

или (если max или min элемент будет не один)

const n=20;

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

i,max,min: integer;

begin

write('массив: ');

for i: = 1 to n do

begin

a[i]: =random(101)+50;

write (a[i],'   ')

end;

max: =a[1];

min: =a[1];

for i: = 1 to n do

begin

if a[i]> max then max: =a[i];

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

end;

writeln;

for i: = 1 to n do

begin

if a[i]=max then writeln('максимальный элемент ',max,' и его номер ',i);

if a[i]=min then writeln('минимальный элемент ',min,' и его номер ',i)

end

end.