Question

Составьте программу расчета суммы элементов в массиве из 10 случайных чисел

Answer 1

program abc;var   a: array [0..9] of integer;   i: integer;  summ:integer;
begin
 for i:=0 to 9 do begin  a[i]:=random(100);
 end;summ:= 0;
 for i:=0 to 9 do begin  summ:=summ+a[i];
 end;writeln(summ);

end.