• Изменить программу так,чтобы я сам вводил число которые будут меняться,а не рандомно.
    Var A:array[1..100] of integer;
    i,n,t:integer;
    Begin
    write('Введите размерность: ');readln(n);
    writeln('Исходный массив: ');
    For i:=1 to n do
    Begin
    A[i]:=random(30)-15;
    write(A[i]:4);
    End;
    writeln;
    writeln('Преобразованный: ');
    i:=0;
    While i Begin
    inc(i,1);
    t:=A[i];
    A[i]:=A[i+1];
    A[i+1]:=t;
    inc(i,1);
    End;
    For i:=1 to n do
    write(A[i]:4);
    readln;
    End.

Ответы 1

  • Var A:array[1..100] of integer;i,n,t:integer;Beginwrite('Введите размерность: ');readln(n);writeln('Исходный массив: ');For i:=1 to n doBeginread(A[i]);write(A[i]:4);End;writeln;writeln('Преобразованный: ');i:=0;While i < n do Begininc(i,1);t:=A[i];A[i]:=A[i+1];A[i+1]:=t;inc(i,1);End;For i:=1 to n dowrite(A[i]:4);readln;End.
    • Автор:

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

Войти через Google

или

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

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

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