Вопрос от посетителя
найти минимальный элемент массива х(1..10) и максимальный элемент массива.поменять их местами и вывод результирующего массива на экран
Отвечает Илюха:
max:=a[1];
for i:=2 to 10 do
begin
if a[i]>max then
max:=a[i];
c:=i;
end;
min:=a[1];
for i:=2 to 10 do
begin
if a[i] min:= a[i]; d:=i; end; a[c]:=x; a[c]:=a[d]; a[d]:=x; это кусочек программы в паскале для нахождения максимального элемента на скоко я помню