завтра зачет задачи на паскале

[bezz_yma]

буду очень благодарна за помощь)могу сказать что ничего не смыслю O_о
1)Определить, имеется ли в целочисленном массиве по крайней мере два отрицательных элемента. Если да, то найти сумму и число элементов, расположенных между первым и последним отрицательными элементами.

2)Написать логическую функцию, которая имеет значение true, если положительные элементы целочисленного массива чередуются с отрицательными элементами, и false в противном случае (нулевые элементы не учитывать).

3)В массиве циклически сдвинуть вправо на 2 позиции элементы с k-ого по n-ый.

[p51x]

могу сказать что ничего не смыслю

могу сказать - есть раздел фриланс

[Z1000000]

program lab3;
const MaxLen=100;
var
 a : array [1..MaxLen] of Integer;
 i,j,N,m,k,rotate,tmp : Integer;
begin
read(N);
for i:=1 to N do a[i] := random(100);
for i:=1 to N do write(a[i],' ');writeln;
read(k);
read(m);
rotate := 2;
for i:= 1 to rotate do
 begin
 tmp := a[m];
 for j:= m-1 downto k do
  begin
  a[j+1] := a[j];
  end;
 a[k] := tmp;
 end;

for i:=1 to N do write(a[i],' ');writeln;
end.

[Stilet]

1)Определить, имеется ли в целочисленном массиве по крайней мере два отрицательных элемента. Если да, то найти сумму и число элементов, расположенных между первым и последним отрицательными элементами.

Я представляю это примерно так:

var
 a:array[1..10] of integer;
 i,s,cntm,k:integer;b:boolean;
begin
 s:=0;b:=false;cntm:=0;
 for i:=1 to 10 do begin
  a[i]:=50-random(100);write(a[i]:5);
  if (a[i]<0) then b:=true;
  if b then begin inc(cntm); k:=i; s:=s+a[i];end;
 end;
 if cntm>1 then
  for i:=10 downto k-1 do s:=s-a[i];
  writeln;
  write(s);readln;

  { TODO -oUser -cConsole Main : Insert code here }
end.

[Z1000000]

program lab1;
const MaxLen=100;
var
 a : array [1..MaxLen] of Integer;
 i,N,firstindex,lastindex,sum,count : Integer;
begin
read(N);
for i:=1 to N do a[i] := -50 + random(100);
for i:=1 to N do write(a[i],' ');writeln;

firstindex := 0;
lastindex := 0;
for i:=1 to N do
 if a[i] < 0 then begin; firstindex := i; break;end;
for i:=N downto firstindex+1 do
 if a[i] < 0 then begin; lastindex := i; break;end;
if (firstindex <> 0) and (lastindex <>0) then
 begin
 for i:= firstindex to lastindex do Sum := Sum + a[i];
 Count := lastindex - firstindex + 1;
 writeln(Sum,' ',Count);
 end
else
 writeln('None');
end.

[Z1000000]

program lab2;
const MaxLen=100;
var
 a : array [1..MaxLen] of Integer;
 N,i : Integer;

function F:Boolean;
var
 i : Integer;
 Plus : Boolean;
 Success : Boolean;
begin
F := True;
if a[1] > 0 then Plus := True else Plus := False;
for i := 2 to N do
 begin
 if a[i] = 0 then ;
 if ( a[i] > 0 ) then
  if Plus then begin F:=False;break;end
  else Plus := not Plus;
 if ( a[i] < 0 ) then
  if not Plus then begin F:=False;break;end
  else Plus := not Plus;
 end;
end;

begin
read(N);
for i:=1 to N do read(a[i]);
for i:=1 to N do write(a[i],' ');writeln;
writeln (F);
end.