Блок схема

[rev1se]

Помогите пожалуйста,нужна блок схема к этой программе.


Задание.
Задана последовательность из n вещественных чисел определить кол-во положительных и отрицательных элементов последовательности

Программа

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;
var a:real;
i,n,countplus,countminus:integer;
begin
{ TODO -oUser -cConsole Main : Insert code here }
write('Vvedite n ');
readln(n);
countplus:=0;
countminus:=0;
for i:=1 to n do
begin
write('Vvedite a: ');
readln(a);
if a>0 then
countplus:=countplus+1;
if a<0 then
countminus:=countminus+1;
end;
writeln('pologitelnie- ',countplus,'otricatelnie- ',countminus);
readln;
end.

Заранее спасибо!

[Вадим Мошев]

www.FCEditor.com

[Utkin]

Я посоветую diamFC - она бесплатна, при ограничении в 30 строк, которые при должной сноровке легко обходятся.