const n=7;
var b:array [1..n] of integer;
i,s:integer;
begin
write ('Массив: ');
for i:=1 to n do
b[i]:=random(25);
write (b[i]:4);
s:=s+b[i]
end;
writeln;
writeln('Сумма элементов: ',s)
end.
const n=7;
var b:array [1..n] of integer;
i,s:integer;
begin
write ('Массив: ');
for i:=1 to n do
begin
b[i]:=random(25);
write (b[i]:4);
s:=s+b[i]
end;
writeln;
writeln('Сумма элементов: ',s)
end.