Дан одномерный массив А, состоящий из N различных элементов. Поменять местами наименьший и наибольший элемнты массива. Полученный массив вывести на печать.

(в basice желательно)

Question

Информатика

Моика

31 декабря, 23:55

Дан одномерный массив А, состоящий из N различных элементов. Поменять местами наименьший и наибольший элемнты массива. Полученный массив вывести на печать.

(в basice желательно)

+2

Ответы (1)

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

Жора · Answer 1

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

n, i:byte;

m, b, c:byte;

begin

m:=1;

b:=1;

write ('Введите n = ') ; readln (n) ;

for i:=1 to n do begin

readln (a[i]) ;

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

end;

c:=a[m];

a[m]:=a[b];

a[b]:=c;

write ('Результат: ') ;

for i:=1 to n do

write (a[i],' ') ;

end.

П. С. как будет возможность набацаю на бейсике