1. Для действительной таблицы х от 1 …

//первая программаconst n=10; var x: array[1… n] of real; i: integer; Summ: real; begin randomize; Summ: =0; for i: =1 to n do begin x[i]: =(random (101) — 50) / 10; write (x[i], '); if x[i] < 0 then Summ: =Summ+x[i]; end; writeln; writeln ('Summ=', Summ); readln; end. //вторая программаconst n=10; var x: array[1… n] of real; i: integer; Pr: real; begin randomize; Pr: =1; for i: =1 to n do begin x[i]: =(random (101) — 50) / 10; write (x[i], '); Pr: =Pr*x[i]; end; writeln; writeln ('Pr=', Pr); readln; end. // третья программа const n=10; var x: array[1… n] of integer; i: integer; Pr: real; begin randomize; Pr: =1; for i: =1 to n do begin x[i]: =(random (101) — 50); write (x[i], '); if x[i] mod 2=1 then Pr: =Pr+x[i]; end; writeln; writeln ('Pr=', Pr); readln; end.