Question

1. Создать одномерный массив размером [10] при помощи генератора случайных чисел.

2. Подсчитать сумму элементов одномерного массива размером [10], заданного генератором случайных чисел.
ПАСКАЛЬ

Answer 1

Var i,s:integer;
a:array[1..10] of integer;
begin
 for i:=1 to 10 do
 begin
  a[i]:=random(100);
  write(a[i]:5);
  s:=s+a[i];
 end;
writeln;
writeln('Summa: ',s);
end.