Имеется массив целых чисел размером N (задается константой). Заполнить его случайными...

Question

Имеется массив целых чисел размером N (задается константой). Заполнить его случайными целыми числами в заданном диапазоне (вводится с клавиатуры). Вывести его на экран. Поменять местами максимальный и минимальный элементы. Получившийся массив вывести на экран. Если максимальных или минимальных элементов несколько, то выбрать те, которые стоят ближе к началу массива.pascal
ABC СРОЧНО

Answer 1

Program n1;
const n=10;
var a: array[1..n] of integer;
n3,n2,min,max,i,imin,imax,t: integer;
begin
randomize;
writeln('введите диапазон (a;b) :');
write('a=');
readln(n3);
write('b=');
readln(n2);
write('сгенерированный массив: ');
for i:=1 to n do
begin
a[i]:=random(n2-n3+1)+n3;
write(a[i],' ');
end;
writeln;
min:=a[1];
for i:=2 to n do if a[i]for i:=1 to n do if a[i]=min then begin
imin:=i;
break;
end;
max:=a[1];
for i:=2 to n do if a[i]>max then max:=a[i];
for i:=1 to n do if a[i]=max then begin
imax:=i;
break;
end;
t:=a[imax];
a[imax]:=a[imin];
a[imin]:=t;
write('полученный массив: ');
for i:=1 to n do write(a[i],' ');
end.

Answer 2

Const n=10;var a:array [1..10] of integer;    i,max,maxn,min,minn,c:integer;begin for i:=1 to n do read(a[i]); for i:=1 to n do write(a[i],' '); writeln; max:=a[1]; min:=a[1]; for i:=2 to n do begin  if a[i]>max then begin max:=a[i]; maxn:=i; end else  if a[i]<min then begin min:=a[i]; minn:=i; end;  end; c:=a[maxn]; a[maxn]:=a[minn]; a[minn]:=c; for i:=1 to n do write(a[i],' '); writeln; end.