Решить задачу по 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.