Var a,b,c:integer;d: array [1..10] of integer; begin randomize; writeln('введите число '); readln(b); for a:=1 to b do begin d[a]:=random(-20,20); writeln('элемент массива ==> ',d[a]); c:=c+d[a]; end; writeln('сумма всех элементов массива ', c ); end.
Answers & Comments
Verified answer
Var a,b,c:integer;d:array [1..10] of integer;
begin
randomize;
writeln('введите число ');
readln(b);
for a:=1 to b do begin
d[a]:=random(-20,20);
writeln('элемент массива ==> ',d[a]);
c:=c+d[a];
end;
writeln('сумма всех элементов массива ', c );
end.