→ Для вступления в общество новичков и профессионалов программирования, пожалуйста нажмите здесь ...

Форум программистов: C++, Basic, Delphi, Pascal, JavaScript
Логин: Пароль:
Запомнить?  
@Mail.ru



Начать новую тему Ответить на тему  [ Сообщений: 2 ] 
Люди нужна помощь !! 
Автор Сообщение
Начинающий

Регистрация: 03.05.2011
Сообщения: 2
Специальность:

Репутация: 0 [ ? ]
 Люди нужна помощь !!
В Масиве с 10 целых чисел найти найбольшый елемент и поминять его местами с последним Елементом !!


03.05.2011 21:13
Профиль Отправить email
Продвинутый
Аватара пользователя

Регистрация: 06.05.2011
Сообщения: 32
Откуда: Днепропетровская область
Языки:

Репутация: 1 [ ? ]
 Re: Люди нужна помощь !!
procedure TForm1.Button1Click(Sender: TObject);
var
a:array[1..10] of integer; //массив целых чисел
i:integer; //индекс переменной массива для сравнения (минимальное значение)
max:integer; //максимальное значение
begin
i:=1; //минимальное значение=1 (индекс массива)
max:=10; //максимальное 10 (индекс массива)
a[1]:=5; //заполняем рандомно массив (могут быть любые другие числа)
a[2]:=8;
a[3]:=15;
a[4]:=6;
a[5]:=12;
a[6]:=14;
a[7]:=45;
a[8]:=82;
a[9]:=41;
a[10]:=21;
for i := 1 to max do //цикл
if a[i]>a[max] then max:=i;//определяем значения i и max как индексы массива
ShowMessage('Наибольшее значение массива= '+IntToStr(a[max]));
a[10]:=max; //присваиваем 10 индексу индекс с максимальным значением (8)
end;


05.11.2011 23:55
Профиль Отправить email ICQ
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 2 ] 


Кто сейчас на конференции

Зарегистрированные пользователи: Yahoo [Bot]


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Перейти:  
cron
© 2013 «Форум программистов Украины»