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

Форум программистов: 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 ] 


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

Зарегистрированные пользователи: нет зарегистрированных пользователей


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

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