Question

Найти сумму и произведение элементов одномерного числового массива M = (5; 45; 6; 87; 41; 36; 74; 12; 3; 10).

В отчет включить блок-схему, текст программы на Паскале, реакцию ЭВМ

Answer 1

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.

Объяснение:

В принципе я указал комментарии к некоторым моментам, так что должно быть понятно(комментарии потом можешь стереть). Также приложил два скриншота с блок-схемой и результатом программы, приложишь их в отчет.