• составить программу вставки в массив A(N) первого элемента, равного 7

Ответы 2

  • Program R1;Var a:array[1..100] of integer;i,n:integer;beginassign(input,'input.txt');reset(input);assign(output,'output.txt');rewrite(output);readln(n);for i:=1 to n do read(a[i]);for i:=n+1 downto 2 doa[i]:=a[i-1] ;a[1]:=7 ;

    for i:=1 to n+1 do write(a[i],' ');close(input);close(output);end.

     например

    ввод

    4

    1 2 3 4 

     вывод 

    7 1 2 3 4

    • Автор:

      delgado
    • 6 лет назад
    • 0
  • var a:array [1..100] of integer;i,n:integer;Begin     read(n);     for i:= 1 to n do         read(a[i]);     for i:= n downto 1 do         a[i+1]:=a[i];     a[1]:=7;     for i:=1 to n+1 do         write(a[i],' ');End.

  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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