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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 30.05.2013, 14:51   #1
Andrew5674
Пользователь
 
Регистрация: 16.04.2013
Сообщений: 19
По умолчанию Массивы. Pascal

Задача 1 В массиве размерностью N поменять местами элементы
1 и N,
2 и N-1,
3 и N-2, и т.д.
Например для массива
1, 2, 3, 4, 5, 6, 7, 8 ответ будет
8, 7, 6, 5, 4, 3, 2, 1.

Задача 2 Найти индекс максимального элемента массива. Найти индекс минимального элемента массива. Если таких элементов несколько, вывести все индексы

Последний раз редактировалось Andrew5674; 30.05.2013 в 15:34.
Andrew5674 вне форума Ответить с цитированием
Старый 30.05.2013, 15:41   #2
grandmixer
Пользователь
 
Аватар для grandmixer
 
Регистрация: 30.10.2012
Сообщений: 31
По умолчанию

Задача 1:
const
n = 5;
var
a:array [1..n] of integer;
i,t:integer;
begin
for i:=1 to n do read(a[i]);
for i:=1 to n div 2 do
begin
t:=a[i];
a[i]:=a[n-(i-1)];
a[n-(i-1)]:=t;
end;
for i:=1 to n do write(a[i],' ');
end.

Задача 2:
const
n = 4;
var
a:array [1..n] of integer;
i,t:integer;
up,down:boolean;
begin
up:=true;
down:=true;
if n = 1 then writeln('невозможно определить')
else begin
for i:=1 to n do read(a[i]);
for i:=1 to n-1 do
begin
if a[i]<a[i+1] then down:=false;
if a[i]>a[i+1] then up:=false;
end;
if up then writeln('массив отсортирован по возрастанию');
if down then writeln('массив отсортирован по убыванию');
end;
if not up and not down then writeln('массив не отсортирован');
end.
grandmixer вне форума Ответить с цитированием
Старый 30.05.2013, 15:45   #3
Andrew5674
Пользователь
 
Регистрация: 16.04.2013
Сообщений: 19
По умолчанию

Огромное Спасибо)
Andrew5674 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Массивы, Pascal 3 oksana_b Помощь студентам 1 12.04.2013 21:08
Pascal: Массивы, подпрограммы, текст на языке Pascal WarriorCow Помощь студентам 4 22.02.2012 15:28
Pascal, Массивы Nastik Помощь студентам 6 07.06.2010 20:44
Pascal (массивы) 4otenado Помощь студентам 3 21.02.2010 15:57