Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Помогите пожалуйста! До зачета не допускают без задач! (Одномерные массивы)
Помогите пожалуйста! До зачета не допускают без задач!
1. Присвойте переменной значение true, если в некотором массиве нет нулевых элементов и при этом положительные элементы чередуются с отрицательными. В противном случае присвойте значение false.
2. Дан одномерный массив. Переставьте в обратном порядке элементы массива, расположенные между максимальным и минимальным элементами.
1 | Автор: Murka886 | 2011-11-21, 15:22   |  Репутация: [ + 0 ]
1.

var
a:array[1..100]of integer;
i,n:integer;
l:boolean;
begin
l:=true;
read(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if a[i]=0 then l:=false;
if l=false then begin writeln(l);exit; end else begin
for i:=1 to n do
if i mod 2=0 then
if a[i]>0 then l:=true else begin l:=false;exit;end;
for i:=1 to n do
if i mod 2<>0 then
if a[i]<0 then l:=true else begin l:=false;exit;end;end;
writeln(l);
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2011-11-22, 15:31   |  Репутация: [ + 211 ]


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2011-11-22, 15:31   |  Репутация: [ + 211 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Помогите пожалуйста! До зачета не допускают без задач! (Одномерные массивы)
Страница 1 из 11
Поиск: