БЛОК СХЕМА

[rev1se]

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

Программа

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;
var a:real;
i,n,countplus,countminus:integer;
begin
{ TODO -oUser -cConsole Main : Insert code here }
write('Vvod n');
readln(n);
countplus:=0;
countminus:=0;
for i:=1 to n do
begin
write('Vvod 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.

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