Предмет: Информатика, автор: sorokana

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

Ответы

Автор ответа: Аноним
0
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


Похожие вопросы
Предмет: Математика, автор: ershat12345