Создать программу. Сформировать массив В(15).состоящий из чисел до 50.Найти сумму элементов этого массива.Массив сформировать при помощи генератора случайных чисел,элементы вывести на экран.
Создать программу.
Сформировать массив В(15).состоящий из чисел до 50.Найти сумму элементов этого массива.Массив сформировать при помощи генератора случайных чисел,элементы вывести на экран.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы