6 задач по TP7

[alex_fcsm]

Ладно вот 4

const n=10;
var i:integer;
    a,b:array[1..n] of real;
    c,sum,mult:real;
    
    
begin
for i:=1 to n do
 begin
 b[i]:=random(5)+1;
 write(b[i]:3:0);
 end;
readln(c);
sum:=0;
mult:=1;
for i:=1 to n do
 begin
  sum:=sum+b[i];
  mult:=mult*(b[i]-c);
 end;

for i:=1 to n do
 begin
 a[i]:=b[i]*(sum-mult);
 write(a[i]:6:1);
 end;

end.

[Disel]

Спасибо!!!