var
a: array[1..10] of integer;
i,s: integer;
begin
s:=0;
for i:= 1 to 10 do
a[i]:=random(1,1000);
s:=s+a[i];
end;
writeln(s);
end.
Поделитесь своими знаниями, ответьте на вопрос:
Найти сумму элементов в массиве из 10 элементов заданных используя рандом Паскаль
var
a: array[1..10] of integer;
i,s: integer;
begin
s:=0;
for i:= 1 to 10 do
begin
a[i]:=random(1,1000);
s:=s+a[i];
end;
writeln(s);
end.