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

Question

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

Comments

На каком языке программирования?

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.