Обработка массивов В ДЕЛФИ

[SASHAKR]

Обработать в среде Delphi массив

Массив :D(80)

Действия : Найти максимальный и минимальный элементы массива D и поменять их местами

Условия и ограничения: -

[Mad_Cat]

{найти максимальный и минимальный элементы массива d и поменять их местами.(d(80))}
const n = 80;
var d:array[1..n] of integer;
imin,imax, temp, i,max,min:integer;
begin
randomize;
for i:=1 to n do begin
d [ i]:=random(150)-50;
write(d[ i]:5);
end;
max:=d[1];
min:=d [ 1];
imin := 1;
imax := 1;
for i:=2 to n do begin
if d [ i]>max then begin
max:=d [i];
imax := i;
end;
if d [i]<min then begin
min:=d[i];
imin := i;
end;
end;
writeln;
writeln('min = ', min, ' imin = ', imin);
temp := d [ imin];
d [ imin] := d [ imax];
d [ imax] := temp;
writeln;
for i:=1 to n do begin
write(d [ i]:5);
end;
readln;
end.

[SASHAKR]

Сообщение от SASHAKR

Обработать в среде Delphi массив

Массив :D(80)

Действия : Найти максимальный и минимальный элементы массива D и поменять их местами

Условия и ограничения: -

СПАСИБО БОЛЬШОЕ