• Пожалуйста решить задачу в программе Паскаль АВС. Дан двумерный числовой массив, состоящий из 2 строк и 3 столбцов, необходимо первую строку поменять со второй и вывести получившиеся на экран. (вместо первой строки будет вторая, а вместо второй первая)

Ответы 1

  • var a,b:array[1..2,1..3]of integer;i, j:byte;Beginfor i:=1 to 2 dofor j:=1 to 3 do readln(a[i,j]);for i:=1 to 2 dobeginfor j:=1 to 3 do write(a[i,j]:3);writelnend;for i:=1 to 2 dofor j:=1 to 3 doif i = 1 then b[i,j]:=a[2,j] elseb[i,j]:=a[1,j];for i:=1 to 2 dobeginfor j:=1 to 3 do write (b[i,j]:3);writelnend;readlnEnd.write
    • Автор:

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

Войти через Google

или

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

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

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