Предмет:
ИнформатикаАвтор:
kaydendoyleОтвет: Лёгкая задача
Объяснение:
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.
Автор:
hannacortezДобавить свой ответ
Предмет:
ХимияАвтор:
judahrodgersОтветов:
Смотреть
Предмет:
АлгебраАвтор:
frankiejnqrОтветов:
Смотреть