Помогите составить блок-схему
Пожалуста помогите составить блок-схему. Заранее спасибо.
uses crt;
var i,d,o,n,m:integer;
a:array[1..100] of integer;
begin
readln
;
randomize;
for i:=1 to n do a:=random(101)-50;
for i:=1 to n do begin
if a < 0 then o:=o+a
else inc(d);
if a = 0 then inc(m);
end;
for i:=1 to n do write(a,' ');
writeln;
writeln('null = ',m);
writeln('otr = ',o);
writeln('pol = ',d);
readln;
end.
Пожалуста помогите составить блок-схему. Заранее спасибо.
uses crt;
var i,d,o,n,m:integer;
a:array[1..100] of integer;
begin
readln
;randomize;
for i:=1 to n do a:=random(101)-50;
for i:=1 to n do begin
if a < 0 then o:=o+a
else inc(d);
if a = 0 then inc(m);
end;
for i:=1 to n do write(a,' ');
writeln;
writeln('null = ',m);
writeln('otr = ',o);
writeln('pol = ',d);
readln;
end.
