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

dima112 · 23.12.2010, 23:45

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

Vladimir_S · 24.12.2010, 09:51

Цитата:

Сообщение от dima112

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

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

Код:

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

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

dima112 · 26.12.2010, 01:33

А откуда мы узнали что именно 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[i]:= random(11);
write(a[i]:3);
if a[i]>m then m:=a[i];
if a[i]<h then h:=a[i];
end;
b:=a[m];
a[m]:=a[h];
a[h]:=b;
writeln('');
writeln(' Максимальное число : ', m);
writeln(' Минимальное число: ', h);
end.

dima112 · 26.12.2010, 01:35

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

Vladimir_S · 26.12.2010, 08:05

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

Цитата:

if a[i]>m then m:=a[i];
if a[i]<h then h:=a[i];

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

Код:

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].

23.12.2010, 23:45	#1 (permalink)
dima112 Новичок Регистрация: 20.12.2010 Сообщений: 6 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Нужна помощь, массивы. Первый курс. Паскаль: Дан массив из n чисел. Поменять в массиве наибольшие и наименьшие элементы. Не могу разобраться как их поменять. С помощью другой переменной? Подскажите знающие люди. Заранее спасибо

23.12.2010, 23:45
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Могу так же посоветовать вам прочитать данные темы Нужна помощь в PHP Массивы. Нужна помощь в доработке программы. Нужна помощь

26.12.2010, 01:33	#3 (permalink)
dima112 Новичок Регистрация: 20.12.2010 Сообщений: 6 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	А откуда мы узнали что именно 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[i]:= random(11); write(a[i]:3); if a[i]>m then m:=a[i]; if a[i]<h then h:=a[i]; end; b:=a[m]; a[m]:=a[h]; a[h]:=b; writeln(''); writeln(' Максимальное число : ', m); writeln(' Минимальное число: ', h); end.

26.12.2010, 01:35	#4 (permalink)
dima112 Новичок Регистрация: 20.12.2010 Сообщений: 6 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Понятно когда первый и последние элементы массива поменять.. там они выглядят так: a[1] и a[10], а когда максимальный и минимальный, мы ведь не знаем под каким индексом стоит это максимальное число..

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070