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

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

Question

Информатика

Веруля

16 мая, 08:21

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

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

+5

Ответы (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.

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