Question

Сделать блок-схему программы 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]< 0 then s: =s+x[i]; end; writeln('сумма отрицательных элементов = ',s); writeln('модифицированный массив x: '); for i: =1 to n do begin if i mod 2< > 0 then x[i]: =round(x[i]*100/s)/100; write(x[i],' '); end; end.

Answer 1

Начало (Овал)
         I
$\left \{ {Var i, N:integer; S:real;} \atop {X:array [1..200] of real; Begin}} \right.$   (параллелограмм)
         I         
write('Введите N = ');
readln(N);                                            (Прямоугольник)
writeln('Исходный массив X:'); 
         I         
For i:=1 to N Do 
then S:=S+X[i];
end; 
         I
If X[i]<0      (Ромб, от него две стрелки "Да" и "Нет")
    I ДА                               I НЕТ
then S:=S+X[i];            
end;                          
(Прямоугольник)