Решить задачу по Turbo Pascal Имеется массив A : [ 1..10 ] of integer Заполненный...

0 голосов
48 просмотров

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


Информатика (50 баллов) | 48 просмотров
Дан 1 ответ
0 голосов

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.

(2.8k баллов)