Заполнить массив А (10) случайными числами из интервала (-25, 13). Найти сумму всех элементов массива (3)

Question

Информатика

Онисим

12 сентября, 05:11

Заполнить массив А (10) случайными числами из интервала (-25, 13). Найти сумму всех элементов массива (3)

+1

Ответы (1)

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

Емилиан · Answer 1

Var i, n:integer;

a:array[1 ... 10] of integer;

begin

randomize;

for i:=1 to 10 do

begin

a[i]:=random (38) - 25;

write (a[i]:5) ;

end;

writeln;

for i:=1 to 10 do

n:=n+a[i];

writeln ('Сумма всех элементов=', n) ;

end.