Вопрос пользователя:
Дан одномерный массив А,состоящий из N различных элементов. Поменять местами наименьший и наибольший элемнты массива. Полученный массив вывести на печать.
( в basice желательно)
Илюха отвечает:
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]
end;
c:=a[m];
a[m]:=a[b];
a[b]:=c;
write(‘Результат: ‘);
for i:=1 to n do
write(a[i],’ ‘);
end.
П.С. как будет возможность набацаю на бейсике