Сделать блок-схему программыProgram GG; Var i, N:integer; S:real; X:array

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



Program GG;
Var i, N:integer;
S:real;
X:array [1..200] of real;
Begin
write('Введите N = ');
readln(N);
writeln('Начальный массив X:');
For i:=1 to N Do
begin
X[i]:=random(9)-3;
write(X[i],' ');
If X[i]lt;0 then S:=S+X[i];
end;
writeln('Сумма отрицательных частей = ',S);
writeln('Измененный массив X:');
For i:=1 to N Do
begin
If i mod 2lt;gt;0 then X[i]:=round(X[i]*100/S)/100;
write(X[i],' ');
end;
End.