Массив у 15 заполнить целыми числами из промежутка от -10 до 100 Вывести на экран столбец найти сумму всех элементов.Реши плиз

1

Ответы и объяснения

2014-01-14T00:42:44+04:00
Program gt;
var a:array[1..1000]of longint;
i,s:longint;
begin
randomize;
s:=0;
for i:=1 to 15 do
begin
a[i]:=random(110)-10;
end;
for i:=1 to 15 do
begin
writeln(a[i]);
s:=s+a[i];
end;
writeln(s);
end.