Поменяйте местами минимальные и максимальные элементы массива. (Паскаль!)

Question

Информатика

Измарагд

19 июня, 23:52

Поменяйте местами минимальные и максимальные элементы массива. (Паскаль!)

+4

Ответы (1)

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

Мариан · Answer 1

Var a, min, max, i1, i2, i;

m:array[1 ... 10000] of longint;

begin

min:=1000000;

readln (a) ;

for i:=1 to a do

begin

read (m[i]) ;

if m[i]>max then

begin

max:=m[i];

i2:=i;

end;

if m[i]
begin

min:=m[i];

i1:=i;

end;

end;

a:=m[i1];

m[i1]:=m[i2];

m[i2]:=a;

end.