Question

1) Заполните все элементы массива значением X введённым с клавиатуры.
2)Заполните массив первыми N натуральными числами,начиная с X (значение Х введите с клавиатуры)

Answer 1

1) var a:array[1..10] of integer

 x, i:integer;

 begin

 writeln('Vvedite chislo X');

 readln(x);

 for i:=1 to 10 do

begin

 a[i]:=x;

 writeln(a[i]), '  ');

end;

readln();

end.

2)    var a:array[1..10] of integer;

       n,i, x:integer;

   begin

   writeln('Vvedite x');

   readln(x);

   n:=0

   for i:=1 to 10 do

    begin

     a[i]:=x+1;

     write(a[i], '  ');

    end;

readln()

   end.