Question

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

массив вывести на печать.

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

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]<a[m] then m:=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.

 

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