• Заполнить массив из 10 элементов случайными числами и сделать реверс всех элементов, кроме первого

Ответы 1

  •  

      const  

    n=10;

    var

      a:array[1..n] of integer;

      i,tmp: integer;

    begin  

    randomize;  

    for i:=1 to 10 do

      begin  

      a[i]:=random(21)-10;    

    Write(A[i]:3);

      end;

      writeln;

      for i:=2 to n div 2 do

      begin  

      tmp:=a[i];  

      a[i]:=a[10-i+2];

        a[10-i+2]:=tmp;

      end;  

    for i:=1 to n do write(a[i]:3);  

    readln;

    end.

    • Автор:

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

Войти через Google

или

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

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

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