Найти сумму и произведение элементов одномерного числового массива M = (5; 45; 6; 87; 41; 36; 74; 12; 3; 10).
В отчет включить блок-схему, текст программы на Паскале, реакцию ЭВМ.
ПОМОГИТЕ ДАМ 100 БАЛОВ!!!!!!
Ответы
Ответ:
program Project1;
const
maxelem = 10;
var
a: array [1..maxelem] of integer; { Переменная для хранения массива.}
n: integer; { Переменная для хранения значения количества элементов в массиве.}
i: integer; { Вспомогательные переменные для организации циклов.}
sum: integer; { Переменная для хранения значения суммы }
mult: double; { Переменная для хранения значения произведения }
begin
n:= 10;
a[1]:=5; a[2]:=45; a[3]:=6; a[4]:=87; a[5]:=41;
a[6]:=36; a[7]:=74; a[8]:=12; a[9]:=3; a[10]:=10;
sum:= 0;
mult:= 1;
writeln('Исходный массив: ');
for i:= 1 to n do
begin
sum:= sum + a[i];
mult:= mult*a[i];
write(a[i]:5);
if i mod 10 = 0 then
writeln;
end;
writeln;
writeln('Сумма элементов массива: ',sum); {319}
writeln('Произведение элементов массива: ', mult:0:0);{4618209168000}
Readln;
end.
Объяснение:
В принципе я указал комментарии к некоторым моментам, так что должно быть понятно(комментарии потом можешь стереть). Также приложил два скриншота с блок-схемой и результатом программы, приложишь их в отчет.
![](https://st.uroker.com/files/bd9/bd9b88d4e92a63bc801f2f3c52618266.png)
![](https://st.uroker.com/files/400/40065766e0e7b0df615e72cbbf112972.png)
![](https://st.uroker.com/files/483/4838878ebe1ade8b066fd96b87d69154.png)
![](https://st.uroker.com/files/7a8/7a8055a69e38f6bd3b6dfef42bcd16eb.png)