Составте программу котораязаполняет...

Составте программу котораязаполняет массив А от 1 до 10,случайными целыми числами в диапозоне от 1 до 10 ,затем меняет местами максимальные иминимальные элементы.

 

Program Pr1;
uses crt;
var mas:array[1..10] of integer;
i,max,min,h,g:integer;
begin
clrscr;
max:=0;
min:=10;
randomize;
for i:=1 to 10 do mas:=1+random(10);
for i:=1 to 10 do write(mas);
for i:=1 to 10 do begin
if mas>max then begin
max:=mas;
h:=i;
end;
if mas<min then begin
min:=mas;
g:=i;
end;
end;
i:=mas[h];
mas[h]:=mas[g];
mas[g]:=i;
writeln();
for i:=1 to 10 do write(mas);
end.