Нужна помощь, массивы. Первый курс.

[dima112]

Нужна помощь, массивы. Первый курс.

Паскаль:
Дан массив из n чисел. Поменять в массиве наибольшие и наименьшие элементы. Не могу разобраться как их поменять. С помощью другой переменной? Подскажите знающие люди. Заранее спасибо

 

[Vladimir_S]

Паскаль:
Дан массив из n чисел. Поменять в массиве наибольшие и наименьшие элементы. Не могу разобраться как их поменять. С помощью другой переменной? Подскажите знающие люди. Заранее спасибо

Конечно. Пусть, например, минимальным элементом массива A оказался A[7], а максимальным - A[2]. Вводите служебную переменную того же типа, что и компоненты массива (назовем ее Dummy). Далее пишем:

Dummy:=A[7];
A[7]:=A[2];
A[2]:=Dummy;

И всего делов-то!

 

[dima112]

А откуда мы узнали что именно a[7] - минимальный элемент? Числа то вводятся рандомно.
Ну вот написал как вы сказали, посмотрите тут ошибку..


program qq;
uses crt;
var
a:array [1..10] of integer;
i:byte;
m,h,b: integer;
begin
randomize;
m:=0;
h:=10;
for i:= 1 to 10 do
begin
a:= random(11);
write(a:3);
if a>m then m:=a;
if a<h then h:=a;
end;
b:=a[m];
a[m]:=a[h];
a[h]:=b;
writeln('');
writeln(' Максимальное число : ', m);
writeln(' Минимальное число: ', h);
end.

 

[dima112]

Понятно когда первый и последние элементы массива поменять.. там они выглядят так: a[1] и a[10], а когда максимальный и минимальный, мы ведь не знаем под каким индексом стоит это максимальное число..

 

[Vladimir_S]

А Вы введите номера Im и Ih и чуть видоизмените цикл. Вместо

if a>m then m:=a;
if a<h then h:=a;

следует написать:

if a[i]>m then 
 begin
   m:=a[i];
   Im:=i;
 end;
if a[i]<h then 
 begin
  h:=a[i];
  Ih:=i;
 end;

Вот Ва и зафиксировали как величины, так и номера максимального и минимального элементов. Теперь осталось переставить a[Im] и a[Ih].