Автор - Poly030678
Ответ: Лёгкая задача
Объяснение:
var
a:array[1..10] of integer;
n,i,sum:integer;
begin
read(n);
sum:=0;
for i:=1 to n do
read(a[i]);
for i:=1 to n do
sum:=sum+a[i];
for i:=1 to n do
begin
a[i]:=a[i]*sum;
write(a[i],' ');
end;
end.