Найти сумму и произведение элементов массива, полученных - вопрос №18653493 от strimersakarinа 20.12.2022 17:36

Question

Информатика: Найти сумму и произведение элементов массива, полученных случайным образом из отрезка [-10; 20] паскаль. написать программу решить, .

strimersakarinа · Answer

for i:=1 to n do
Begin
randomize;
a[i]:=random(31)-10;
end;
for i:=1 to n do
begin
k:=k+a[i];
k1:=k1*a[i];
end;
for i:=1 to n do
write(a[i],' ');
writeln(k);//СУММА
writeln(k1); //ПРОИЗВЕДЕНИЕ
end.