Дан одномерный массив А размерности N. Поменять местами максимальный и минимальный элементы.

Question

Информатика

Тася

19 января, 00:52

Дан одномерный массив А размерности N. Поменять местами максимальный и минимальный элементы.

+3

Ответы (1)

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

Антип · Answer 1

Uses crt;

const N=30;

var a:array [1 ... N] of integer;

x, min, max, t:integer;

begin

for x:=1 to N do

begin

write ('a[', x,']:') ;

readln (a[x]) ;

end;

min:=1; max:=1;

for x:=1 to N do

begin

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

end;

t:=a[max];

a[max]:=a[min];

a[min]:=t;

for x:=1 to N do

write (a[x]:4) ;

end.