Question

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

Answer 1

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.