Question

Var x: array [1..10] of integer; procedure reachat(a: integer); var i: integer; begin for i: =1 to 10 do write (x[i],' '); end; var i,a: integer; begin read(a); for i: =1 to 10 do x[i]: =random(10); reachat(x[i]); writeln(a); end. надо изменить программу так, что бы при вводе 4 было 1 2 3 4, а при вводе 6 было 1 2 3 4 5 6

Answer 1

Var
  x:array [1..10] of integer;

procedure peachat(a:integer);
var
  i:integer;
begin
  for i:=1 to a do
  write (x[i],' ')
end;

var
  i,a:integer;
begin
  read(a);
  for i:=1 to a do x[i]:=i;
  peachat(a)
end.

Тестовое решение:
6
1 2 3 4 5 6