Question

Создать программу.
Сформировать массив В(15).состоящий из чисел до 50.Найти сумму элементов этого массива.Массив сформировать при помощи генератора случайных чисел,элементы вывести на экран.

Answer 1

const n=15;
var b : array[1..n] of integer;
     sum,i : integer;
begin
Randomize;
 for i:=1 to n do begin
   b[i]:=random(51);
   write(b[i]:4);
    end;
writeln;
sum:=0;
for i:=1 to n do sum:=sum+b[i];
 writeln('sum = ',sum);
 end.