• Решить задачу в паскаль абс "дан двумерный массив,состоящий из 2 строк и 3 столбцов..необходимо пересортировать массив таким образом,чтобы нижняя

    строка(2) заняла место верхней(1),а верхняя(1) заняла место нижней(2).как можно проще пожалуйста

Ответы 3

  • а что нужно сделать ,точнее изменить ,чтобы самим вводить числа(элементы массива)?
  • for i:=1 to 2 dobeginfor j:=1 to 3 dobegina[i,j]:=random(10);write(a[i,j],' ');end;writeln;end; Нужно заменить на : for i:=1 to 2 dobeginfor j:=1 to 3 dobeginread(a[i,j])end;end;
  • vara:array[1..2,1..3] of integer;i,t,j:integer;beginwriteln('До:');for i:=1 to 2 dobeginfor j:=1 to 3 dobegina[i,j]:=random(10);write(a[i,j],' ');end;writeln;end;for j:=1 to 3 dobegint:=a[1,j];a[1,j]:=a[2,j];a[2,j]:=t;end;writeln('После:');for i:=1 to 2 dobeginfor j:=1 to 3 dowrite(a[i,j],' ');writeln;end;end.ПРИМЕР РАБОТЫ:До:5 5 2 8 6 2 После:8 6 2 5 5 2 
    • Автор:

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

Войти через Google

или

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

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

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