Помог пож создать блок схему по программе для pascal

[Aidar19]

program plusminusa;

uses crt;

const N = 59;

var A: array[1..N] of Integer;
i: BYTE;
count: BYTE;
average: array[0..1] of Real;
flag: boolean;

function sign(x: Integer): ShortInt;
begin
if x > 0 then sign:= 1
else
if x = 0 then sign:= 0
else
sign:= -1;
end;

begin
clrscr;
count:= 0;
average[0]:= 0;
average[1]:= 0;
flag:= false;
A[1]:= -1+random(3);
write(A[1], ' ');
for i:= 2 to N do begin
A[i]:= -1+random(3);
if sign(A[i]) = -sign(A[i-1]) then begin
if odd(i) then average[1]:= average[1] + A[i]
else
average[0]:= average[0]+A[i];
flag:= true;
end
else begin
if flag then begin
inc(count);
flag:= false;
end;
end;
write(A[i], ' ');
end;

writeln;
if count = 0 then begin
average[1]:= average[1]+A[1];
writeln('среднее четных: ', average[0]/29:0:3);
writeln('среднее нечетных: ', average[0]/30:0:3);
end
else begin
if flag then inc(count);
writeln('Количество чередований:'' ', count);
end;
readkey;
end.

[denisbrain]

[QUOTE=Aidar19;1032943]program plusminusa;

uses crt;

const N = 59;

var A: array[1..N] of Integer;
i: BYTE;
count: BYTE;
average: array[0..1] of Real;
flag: boolean;

[QUOTE]

Блок схема во вложении

[Aidar19]

СПАСИБО ОГРОМНОЕ ДАЙ БОГ ВАМ ЗДОРОВЬЕ И СЧАСТЬЕ ЗА ВАШУ ДОБРОТУ И ОТЗЫВЧИВОСТЬ!!!!)))))