Трансформация массивов
Дана матрица: 1 5 4 4 7 2 6 7 7 8 3 9 9 9 1 4 5 6 8 0 5 8 2 4 6 Скажите значения чисел: A[2; 4]= ? A[4; 2]=? A[5; 3]=? A[5; 5]=? A[1; 3]=?
1 5 4 4 7 2 6 7 7 8 3 9 9 9 1 for i: =n downto 1 do begin for j: =1 to n do begin write(a[i, j]: 3); end; writeln; end; 4 5 6 8 0 5 8 2 4 6 Отображение элементов относительно оси ОХ 5 8 2 4 6 4 5 6 8 0 3 9 9 9 1 2 6 7 7 8 1 5 4 4 7
1 5 4 4 7 2 6 7 7 8 3 9 9 9 1 4 5 6 8 0 for i: =1 to n do begin for j: =n downto 1 do begin write(a[i, j]: 3); end; writeln; end; 5 8 2 4 6 Отображение элементов относительно оси ОУ 7 4 4 5 1 8 7 7 6 2 1 9 9 9 3 0 8 6 5 4 6 4 2 8 5
1 5 4 4 7 2 6 7 7 8 3 9 9 9 1 4 5 6 8 0 5 8 2 4 6 Какие индексы имеют эти числа? Как их записать в общем виде?
1 5 4 4 7 2 6 7 7 8 3 9 9 9 1 4 5 6 8 0 5 8 2 4 6 Какие индексы имеют эти числа? Как их записать в общем виде?
1 5 4 4 7 2 6 7 7 8 3 9 9 9 1 4 5 6 8 0 5 8 2 4 6 Поменять элементы относительно побочной диагонали 6 0 1 8 7 4 8 9 7 4 2 6 9 7 4 8 5 9 6 5 5 4 3 2 1
Program diagonal; uses crt; var a: array[1. . 10, 1. . 10]of integer; i, j, n: byte; tmp: integer; begin clrscr; write('N = '); readln(n); for i: =1 to n do for j: =1 to n do read(a[i, j]); for i: =1 to n do for j: =1 to n do if(i+j-1
Задание Поменять элементы относительно главной диагонали
Задание Поменять элементы относительно диагонали Вар 2 Вар 1 1 5 4 4 7 2 6 7 7 8 3 9 9 9 1 4 5 6 8 0 5 8 2 4 6
Задание Поменять элементы относительно осей Вар 1 1 5 4 4 7 2 6 7 7 8 Вар 2 3 9 9 9 1 4 5 6 8 0 5 8 2 4 6 7 4 4 5 1 8 7 7 6 2 1 9 9 9 3 0 8 6 5 4 6 4 2 8 5