2. Заполнить одномерный массив, состоящий из N элементов, числами, случайно выбранными из диапазона [a,b]. Значение N описывается как константа, значения a и b задаются с клавиатуры. Вывести элементы массива на экран в строку. ...
2. Заполнить одномерный массив, состоящий из N элементов, числами, случайно выбранными из диапазона [a,b]. Значение N описывается как константа, значения a и b задаются с клавиатуры. Вывести элементы массива на экран в строку. Вычислить сумму элементов массива и вывести ее на экран.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы