1. Создать массив из 20-ти случайных чисел (значения от 0 до 100). Вывести на экран значения массива строкой.

Вычислить сумму элементов массива!

2.

Создать массив из 20-ти случайных чисел (значения от 0 до 100). Вывести на экран значения массива строкой.

Вычислить количество элементов массива!

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.