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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 25.10.2012, 20:25   #1
Alise
Новичок
Джуниор
 
Регистрация: 25.10.2012
Сообщений: 1
По умолчанию Массив.паскаль

дан массив размером N.найти максимальный из его элементов, не являющихся ни локальным минимумом, ни локальным максимумом.Если таких элементов нет, то вывести об этом сообщение.
Упорядочить положительные элементы второй половины массива по убыванию модулей обратных значений
Alise вне форума Ответить с цитированием
Старый 30.10.2012, 18:30   #2
NinaSSS
Пользователь
 
Регистрация: 30.10.2012
Сообщений: 34
По умолчанию

попробуйте так
Код:
program jkfh;
var a:array[1..10] of integer; i, max,n,f:integer;
begin
readln(n); f:=0;
for i:=1 to n do begin
readln(a[i]);end;
max:=-1000;
for i:=2 to n-1 do begin

if ( (a[i]>a[i+1])and (a[i]>a[i-1]) and (a[i]<a[i+1])and (a[i]<a[i-1])) then
f:=1 else   if (a[i]> max) then
max:=a[i];end;
writeln('max=',max);end.


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!

Модератор.

Последний раз редактировалось Serge_Bliznykov; 30.10.2012 в 19:50.
NinaSSS вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
ПАСКАЛЬ.Заданы два одномерных массива.Объединить их в один массив, включив второй массив между K-ым и (K+1)-м элементами первого. dmitriy20104 Помощь студентам 7 06.07.2012 20:44
Паскаль. Массив Studentka7777 Паскаль, Turbo Pascal, PascalABC.NET 2 21.12.2011 21:03
массив.паскаль Ам тя Помощь студентам 0 18.10.2010 13:35
Массив. Паскаль Safary Помощь студентам 5 04.12.2008 18:58