Составить программу в массиве с N числами поменять местами максимальное и минимальное значения

Question

Информатика

Динуся

5 сентября, 04:58

Составить программу в массиве с N числами поменять местами максимальное и минимальное значения

+3

Ответы (1)

Знаете ответ на вопрос?

Веля · Answer 1

Var

a:array[1 ... 1000] of integer;

i, min, max, c, n:integer;

begin

read (n) ;

min:=1; max:=1;

for i:=1 to n do read (a[i]) ;

for i:=1 to n do begin

if a[i]>a[max] then max:=i;

if a[i]
end;

c:=a[min];

a[min]:=a[max];

a[max]:=c;

for i:=1 to n do write (a[i],' ') ;

end.