Создать программу.
Сформировать массив В(15).состоящий из чисел до 50.Найти сумму элементов этого массива.Массив сформировать при помощи генератора случайных чисел,элементы вывести на экран.
Сформировать массив В(15).состоящий из чисел до 50.Найти сумму элементов этого массива.Массив сформировать при помощи генератора случайных чисел,элементы вывести на экран.
More Questions From This User See All
Answers & Comments
Verified answer
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.