Var x:array [1..10] of integer; procedure reachat(a:integer); var i:integer; begin for...

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

Comments

Это называется "отсортировать данные по возрастанию".

---

Только непонятно, что Вам надо на самом деле. Написали бы исходное условие задачи.

---

глобальный массив из 10 элементов, чтобы reachat(4) при выводе было 1 2 3 4, при reachat(6) при выводе было 1 2 3 4 5 6

---

Понятно. А зачем там random - это непонятно))))

---

yt pyf.

---

не знаю

---

Да. У Вас серьезные проблемы с этим предметом. Знания почти нулевые...

---

Скорее их вообще нет.

---

Спасибо, очень помогли

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