IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> Перестановка максимального и минимального элемента ., Перестановка максимального и минимального элемента на первое и последн
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 4
Пол: Мужской
Реальное имя: Виталий

Репутация: -  0  +


Подскажите, как переставить максимальный и минимальный элементы массива на первое и последнее место соответственно.
Формирую массив случайным образом и нахожу максимальный и минимальный элементы.
Код

StringGrid1.RowCount:=StrToInt(Edit1.Text);
StringGrid1.ColCount:=StrToInt(Edit2.Text);
randomize;
for i:=0 to StringGrid1.ColCount-1 do
for j:=0 to StringGrid1.RowCount-1 do
StringGrid1.Cells[i,j]:=IntToStr(Round(Sin(Random(100))*100));

max:=0;
for j:=0 to StringGrid1.RowCount-1 do
for i:=0 to StringGrid1.ColCount-1 do
if StrToInt(StringGrid1.Cells[i,j])>max then
max:=StrToInt(StringGrid1.Cells[i,j]);
Label5.Caption:=IntToStr(max);

min:=0;
for j:=0 to StringGrid1.RowCount-1 do
for i:=0 to StringGrid1.ColCount-1 do
if StrToInt(StringGrid1.Cells[i,j])<min then
min:=StrToInt(StringGrid1.Cells[i,j]);
Label6.Caption:=IntToStr(min);
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


Задача с одномерным массивом


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 1.11.2020 3:37
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name