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

Question

Информатика

Вака

25 января, 21:11

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

+3

Ответы (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.