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 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
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Var x:array [1..10] of integer;
procedure reachat(a:integer);
var i:integer;
begin
for i:=1 to a do
write (i,' ');
end;
var i,a:integer;
begin
read(a);
for i:=1 to 10 do
x[i]:=i;
reachat(a);
writeln();
end.