• 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

  • 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
    • Автор:

      rodney
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years