Решить задачу по Turbo Pascal
 Имеется массив A : [ 1..10 ] of integer
 Заполненный случайным образом, числами из интервала (от 20 до 30).
 НАЙТИ СУММУ

var a:array [1..10] of integer;      j,sum:integer;begin  sum:=0;  randomize;  for j:=1 to 10 do  begin    a[j]:=random(11)+20;    write (a[j],' ');    sum:=sum+a[j];  end;  writeln;  writeln ('Summa: ',sum);  readln;end.