Создать программу.

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

Question

Информатика

Варлам

14 февраля, 23:59

Создать программу.

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

+1

Ответы (1)

Знаете ответ?

Виталика · 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.