3. запишите без пробелов пропущенную команду в данной программе,
вычисления суммы элементов массива. что делает данная программа?
program s;
var
a: array [1..50] of integer;
i,p: integer;
begin
for i: =1 to 7 do
begin
a[i]=random (30);
end;
for i: =1 to 7 do
р: =p*a[i];
writeln (p);
end.
❤️

program s;

var

a:array [1..50] of integer;

i,P,C: integer;

begin

for i:=1 to 7 do

begin

a[i]=random (30);

end;

for i:=1 to 7 do  begin

C:=C+a[i];

Р:=P*a[i];

end;

writeln (C);

writeln (P);

end.

Объяснение:

Вообще программа вычисляла произведение всех элементов массива. Теперь вычисляет и сумму всех элементов массива.