найти макс, мин и поменять местами

Посмотреть архив целиком
program massiv;

{$APPTYPE CONSOLE}

uses
SysUtils;
var a:array[1..150] of integer;
i,n,max,nmax,min,nmin,buf: integer;
begin
writeln('Vvediete kolichestvo elementov');
readln(n);
writeln('Vvedite massiv');
for i:=1 to n do read (A[i]);
readln;

max:=A[1];
nmax:=1;
for i:=1 to n do
if A[i]>max then begin
nmax:=i;
max:=A[i];
end;
writeln('maksimalnii element ',max,' stoit pod nomerom ',nmax);


min:=A[1];
nmin:=1;
for i:=1 to n do
if A[i] nmin:=i;
min:=A[i];
end;
writeln('minimalnii element ',min,' stoit pod nomerom ',nmin);

buf:=A[nmax];
A[nmax]:=A[nmin];
A[nmin]:=buf;

writeln('Novii massiv');
for i:=1 to n do write (a[i],' ');
writeln;
readln;
end.





Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.