program sum;
var a: array[0..19] of integer;
var i, s: integer;
begin
s:=0;
// Заполнение массива случайными числами
for i:=0 to 19 do a[i]:=random(100);
// Складываем числа в массиве
for i:=0 to 19 do s:=s+a[i];
writeln(s);
end.
Объяснение:
program sum;
var a: array[0..19] of integer;
var i, s: integer;
begin
s:=0;
// Заполнение массива случайными числами
for i:=0 to 19 do a[i]:=random(100);
// Складываем числа в массиве
for i:=0 to 19 do s:=s+a[i];
writeln(s);
end.
Объяснение: