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

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.Тестовое решение:61 2 3 4 5 6