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
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