Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.10.2010, 00:00   #1
snacki
Пользователь
 
Регистрация: 23.06.2010
Сообщений: 22
По умолчанию Не понял ваше её::::::::(

составить программу, которая меняет местами максимальный и минимальный по значению элементы одномерного целочисленного массива Х, состоящего из не повторяющихся 15 значений.


не знаю что после Begin ПИСАТЬ


ПОМОГИТЕ ПЛИЗЗ
snacki вне форума Ответить с цитированием
Старый 20.10.2010, 00:10   #2
Базиля
Участник клуба
 
Аватар для Базиля
 
Регистрация: 03.12.2009
Сообщений: 1,013
По умолчанию

что-то вроде того
Код:
var a:array[1..15]of integer;
l,max,min,n,i,h,p:integer;
begin
readln(n);
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
max:=a[1];
min:=a[1];
h:=1;
p:=1;
for i:=1 to n do
begin
if a[i]>max then
begin
max:=a[i];
p:=i;
end;
if min>a[i] then
begin
h:=i;
end;
end;
l:=a[p];
a[p]:=a[h];
a[h]:=l;
for i:=1 to n do
write(a[i],' ');
end.
Базиля вне форума Ответить с цитированием
Старый 20.10.2010, 00:11   #3
snacki
Пользователь
 
Регистрация: 23.06.2010
Сообщений: 22
По умолчанию

Спасиб большое
snacki вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Не понял ошибку Айдар Помощь студентам 5 28.02.2010 12:57
не понял урок Инспектор ГУЛ Помощь студентам 2 19.09.2009 08:32
нЕ ВСё понял обьясните! saperA3814 Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 14 15.07.2009 20:58
Не понял урок beygul Помощь студентам 24 22.05.2009 09:53