Ну с этой я разобрался, а со второй тоже попробывал: Uses Crt;
Var
Count, I: byte;
N:array [1..70] of real;
Begin
Clrscr;
Count:=1;
While (Count <= 70) do begin
Write('Vvedite element massiva N (ostalos ',(70-Count),'): ');
Readln(N[count]);
Inc(Count);
End;
{pokazhem ego}
WriteLn;
WriteLn('Ishodniy massiv:');
For I:=1 To 70 Do Begin
Write(N[I]:0:0,' ');
end;
{porabotaem nad nim}
Count:=0;
For I:=1 To 70 Do Begin
If N[I] > 0 then break
Else Inc(Count);
end;
WriteLn;
WriteLn('Kolichestvo otricatelnyh chisel v nachale massiva: ',Сount);
WriteLn;
Write('Programma zavershena, zhmem Enter!');
ReadLn;
End. Write(N:0:0,' '); end; здесь ошибка синтаксиса но в чем я так и не понял?