Дан массив размера N. Поменять местами его минимальный и максимальный элементы. (На языке Паскаль)

Question

Информатика

Ларя

29 октября, 05:16

Дан массив размера N. Поменять местами его минимальный и максимальный элементы. (На языке Паскаль)

+5

Ответы (1)

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

Агита · Answer 1

Program al;

var

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

buf:integer;

i, n, min, max:integer; begin

writeln ('n=') ;

readln (n) ;

writeln ('vvedite massiv=') ;

for i : = 1 to n do

readln (a[i]) ;

min:=1;

max:=1;

for i:=2 to n do

begin

if a[min]>a[i] then

min:=i;

if a[max]
max:=i;

end;

buf:=a[min];

a[min]:=a[max];

a[max]:=buf;

writeln ('Massiv posle obmena maxmin') ;

for i:=1 to n do

write (a[i]:4) ;

writeln;

end.