Программа в паскале. надо двумерный массив ввывести змейкой по горизонтали справа на лево(5*5)

172

304

Посмотреть ответы 2

Ответы на вопрос:

glebsamokrytov777

Информатика

4,6(76 оценок)

Var i, j, k: integer; a, b: array [1..5] of array [1..5] of integer; begin for i : = 1 to 5 do for j : = 1 to 5 do read(a[i][j]); k : = 1; for i : = 1 to 5 do if (odd(i)) then for j : = 5 downto 1 do begin b[i][j] : = a[((k-1) div 5)+1][((k-1) mod 5)+1]; inc(k); end else for j : = 1 to 5 do begin b[i][j] : = a[((k-1) div 5)+1][((k-1) mod 5)+1]; inc(k); end; for i : = 1 to 5 do begin for j : = 1 to 5 do write(b[i][j]: 2, ' '); writeln; end; end.