Создать массив из 20-ти случайных двух значных чисел. Вычислить сумму элементов массива

1.

Program Program1;

Var

a:array [1 ... 20] of integer;

i, k:integer;

begin

randomize;

for i:=1 to 20 do

a[i]:=random (101);

k:=0;

for i:=1 to 20 do

begin

write (a[i],', ');

k:=k+a[i];

end;

Writeln ('Сумма элементов массива: ', k);

end.

2.

Program Program2;

Var

a:array [1 ... 20] of integer;

i, k:integer;

begin

randomize;

for i:=1 to 20 do

a[i]:=random (101);

k:=0;

for i:=1 to 20 do

begin

write (a[i],', ');

inc (k);

end;

Writeln ('Количество элементов массива: ', k);

end.