Question

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.
Помогите пожалуйста❤️

Answer 1

Ответ:

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.

Объяснение:

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