Заполнить одномерный массив состоящий из 10-ти элементов числами ** промежутке от...

Question

Заполнить одномерный массив состоящий из 10-ти элементов числами на промежутке от [-115,115]. Вывести полученный массив в строчку через три пробелами между элементами и найти сумму элементов полученного массива.

Answer 1

Program Pr1;
uses crt;
var mas:array[1..10] of integer;
i,a:integer;
Begin
clrscr;
a:=0;
randomize;
for i:=1 to 10 do mas[i]:=-115+random(231);
for i:=1 to 10 do begin
write(mas[i],' ');
a:=a+mas[i];
end;
writeln('Summa=',a);
end.