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

Question

Информатика

Альбина

17 ноября, 20:27

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

+1

Ответы (1)

Знаете ответ?

Аникий · Answer 1

Var a: array [1 ... 100] of integer;

min, a, p: integer;

begin

read (n) ;

for i: = 1 to n do

read (a[i]) ;

min:a[1]; p:=1;

for i:=2 to n do

if a[i]< min then

begin

min:=a[i];

p:=i;

end;

writeln ('min,=;, min) ;

writeln (' на позиции; p) ;

end.