|
Помогите пожалуйста! До зачета не допускают без задач!
|
|
1. Присвойте переменной значение true, если в некотором массиве нет нулевых элементов и при этом положительные элементы чередуются с отрицательными. В противном случае присвойте значение false.
2. Дан одномерный массив. Переставьте в обратном порядке элементы массива, расположенные между максимальным и минимальным элементами.
|
|
|
|
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
|
|
|
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
