Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

дан вектор размером N поменять местами максимальный и минимальный элементы

( пожалуйста решите, я ничего не понимаю,весь день делаю не получается.)

Ответ оставил Гость

uses crt;
var n,i,k,k1,m,min,max:integer;
a:array[1..1000] of integer;
begin
randomize;
read(n);
for i:=1 to n do begin
a[i]:=random(101)-50;
if max if min>a[i] then begin k1:=i; min:=a[i]; end;
write(a[i], );
end;
writeln;
m:=a[k];
a[k]:=a[k1];
a[k1]:=m;
for i:=1 to n do
write(a[i], );
end.