Question

Выполнить задачу: Дан одномерный массив из N чисел, заполненных случайно в диапазоне от 0 до 50 (рандомно). Найти сумму и произведение этих чисел.

Answer 1

const N=10;

var

 a:array[1..N] of integer;

 s,p,i:integer;

begin

 s:=0;

 p:=1;

 for i:=1 to N do

 begin

 a[i]:=random(51);

 s:=s+a[i];

 p:=p*a[i];

 end;

writeln(s);

writeln(p);

end.

Answer 2

246
-1746628576 - это результат запуска программы. Заполненный массив не выводится, но и так ясно, что решение некорректно. Если массив заполняется случайнфми значениями от 0 до 50, произведение его элементов отрицательным быть не может. Причина известна, но автору решения предлагается подумать.