Есть программа, по ней надо нарисовать блок-схему.

[email protected] в категроии Информатика, вопрос открыт 21.06.2017 в 16:23

Type
vector=array[1..200] of integer;
Var
a:vector;
s:integer;
e:integer;
t:integer;
i:integer;

begin
for i := 1 to 200 do
begin
t := Random(200); t := t - 100;
A[i] := t;
end;

s:=0;
e:=0;
for i := 1 to 200 do
begin
if A[i]<0
then s:=s+a[i];
if A[i] mod 2 = 0
then inc(e);
end;

writeln('Sum of negative = ', s);
writeln('Number of even numbers = ', e);
end.