var
a: array [1..10] of Integer;
i, s: Integer;
begin
Randomize;
s := 0;
for i := Low (a) to High (a) do begin
a [i] := Random (41);
Write (a [i] :4);
s := s + a [i];
end;
WriteLn;
WriteLn ('Сумма = ', s);
ReadLn;
end.
var
a: array [1..10] of Integer;
i, s: Integer;
begin
Randomize;
s := 0;
for i := Low (a) to High (a) do begin
a [i] := Random (41);
Write (a [i] :4);
s := s + a [i];
end;
WriteLn;
WriteLn ('Сумма = ', s);
ReadLn;
end.