Составить блок схему к готовому коду

@Freezy32rus · Регистрация: 06.10.2013

Author24 — интернет-сервис помощи студентам

Помогите пожалуйста составить блок схему для данной программы!! заранее спасибо!

Pascal

var  n, i, a, cv, cd, nv, nd: integer;
 
begin
writeln ('N: ');
read (n);
writeln ('Bводите числа...');
for i:=1 to n do
begin
  read (a);
  if (odd(a)=true) then
  begin
      if (a<0) then inc(nv);
      if (a>0) then inc(nd);
  end;
  
  if (odd(a)=false) then
  begin
      if (a<0) then inc(cv);
      if (a>0) then inc(cd);
  end;
end;
writeln ('Четных отрицательных:',cv );
writeln ('Четных положительных:',cd );
writeln ('Нечетных отрицательных:',nv );
writeln ('Нечетных положительных:',nd );
end.

@Sead · 21.10.2013, 12:43

держи

@Freezy32rus · 21.10.2013, 12:48 **[ТС]**

спасибо большое!

@Sead 66 / 69 / 33 Регистрация: 07.10.2013 Сообщений: 396
	21.10.2013, 12:43	2
	держи Миниатюры 1

@Freezy32rus 0 / 0 / 0 Регистрация: 06.10.2013 Сообщений: 32
	21.10.2013, 12:48 [ТС]	3
	спасибо большое! 0