Лабы+курсовик(1) / Laba1

Program l1;
uses crt;
const n=50;
var
x,k,i:integer;
a:array[1..n] of integer;
f:boolean;

begin
clrscr;
writeln ('Vvedite dlinu massiva:');
readln (x);
writeln ('Vvedite massiv:');
for
i:=1 to x do
begin
readln(a[i]);
end;
k:=0;
if a[1]>=0 then f:=True else f:=false;
for i:=2 to x do
begin
if f and (a[i]<0) then k:=k+1;
if not f and (a[i]>=0) then k:=k+1;
if a[i]>=0 then f:=True else f:=false;
end;
writeln ('Znak menyaetsa: ',k,' raz(a)');
ReadKey;
end.