Question

Заполните пропуски в программе ввода и вывода 10 целочисленных элементов массива, заданных случайным образом на промежутке [20; 40]: Program gh; var A: array[ 1..___] of integer; i: integer; begin for i:=1 to __ do begin A[i] := random(___) + ____; write(____); end; end.

Answer 1

Program gh;

   var A: array[ 1..10] of integer;

         i: integer;

begin

  for i:=1 to 10 do

     begin

        A[i] := random(20) + 20;

        write(A[i]);

     end;

end.