Question

Написать программу вычисляющую сумму 12 элементов одномерного массива, заданного случайным образом.

Answer 1

var a:array[1..12] of integer;

i,s: integer;

begin

for i:=1 to 12 do

begin

a[i]:=random(100);

s:=s+a[i];

write (a[i],' ')

end;

writeln;

write (s)

end.