Ответы на вопрос:
18.87.36(кбит) Надеюсь что правильно, но предупреждаю я не уверен на 100 процентов
ответ:
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.
объяснение:
вообще программа вычисляла произведение всех элементов массива. теперь вычисляет и сумму всех элементов массива.
Популярно: Информатика
-
алинка54628.03.2022 08:56
-
zimina3120.05.2021 20:47
-
20071218hi01.03.2020 04:30
-
olga19588806.05.2023 22:27
-
whitezizickela22.04.2021 06:17
-
zlataaug07.04.2023 18:03
-
йойо317.05.2022 16:27
-
Иa41101.11.2022 06:54
-
александрадейкун12.06.2021 19:35
-
delvar2503.03.2020 20:36