2. Заполнить одномерный массив, состоящий из N элементов, числами, случайно выбранными из диапазона [a, b]. Значение N описывается как константа, значения a и b задаются с клавиатуры. Вывести элементы массива на экран в строку. Вычислить сумму элементов массива и вывести ее на экран.

Question

Информатика

Нинаня

13 апреля, 04:24

2. Заполнить одномерный массив, состоящий из N элементов, числами, случайно выбранными из диапазона [a, b]. Значение N описывается как константа, значения a и b задаются с клавиатуры. Вывести элементы массива на экран в строку. Вычислить сумму элементов массива и вывести ее на экран.

+4

Ответы (1)

Знаете ответ на вопрос?

Яков · Answer 1

Const n=10;

var

arr: array[1 ... n] of integer;

a, b, i, s: integer;

begin

readln (a, b) ;

randomize;

for i:=1 to n do

arr[i] : = random (b-a+1) + a;

s:=0;

for i:=1 to n do

inc (s, arr[i]) ;

writeln (s) ;

end.