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

Вопрос школьника по предмету Информатика

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

Ответ учителя по предмету Информатика

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.