for i:=N downto 1 do
for j:=1 to N do
write(A[i,j],' ');
Pascal. Работа с матрицей
Доброго времени суток!
Помогите, пожалуйста, написать алгоритм. Язык программирования - Паскаль.
Дана матрица размерностью N*N. Записать в ней элементы побочной диагонали в обратном порядке.
Заранее спасибо!
Помогите, пожалуйста, написать алгоритм. Язык программирования - Паскаль.
Дана матрица размерностью N*N. Записать в ней элементы побочной диагонали в обратном порядке.
Заранее спасибо!
Цитата: Hydra
Код:
for i:=N downto 1 do
for j:=1 to N do
write(A[i,j],' ');
for j:=1 to N do
write(A[i,j],' ');
???вы сами считали сколько выведется элементов
Код:
for i:=1 to N div 2 do
begin r:=x[N+1-i,i]; x[N+1-i,i]:=x[i,N+1-i]; x[i,N+1-i]:=r end;
begin r:=x[N+1-i,i]; x[N+1-i,i]:=x[i,N+1-i]; x[i,N+1-i]:=r end;
Спасибо большое :)
Добрый день! (вечер/ночь/утро)
Помогите, написать алгоритм на Паскале:
Дана матрица размерностью N*N. Отсортировать в ней элементы побочной диагонали методом пузырька.
Извените за беспокойство, в нете ничего не нашлось :(
Помогите, написать алгоритм на Паскале:
Дана матрица размерностью N*N. Отсортировать в ней элементы побочной диагонали методом пузырька.
Извените за беспокойство, в нете ничего не нашлось :(