упорядочить по возрастанию элементы побочной диагонали

@Елена Най · Регистрация: 17.01.2010

Author24 — интернет-сервис помощи студентам

упорядочить по возрастанию элементы побочной диагонали матрицы А

Pascal

Program ggg;
 
var 
  a:array[l..20,1..20] of integer; 
  n,i,j,x:integer;
begin
  //здесь ввод матрицы 
  for i:=1 to n-1 do
    for j:=i+l to n do 
      if a[i,n-i+l]>a[j,n-j+1] then 
      begin 
        x: =a[i,n-i+1]; 
        a[i,n-i+l]:=a[j,n-j+1]; 
        a[j,n-j+1]:=x; 
      end;
  //здесь вывод матрицы
  readln
end.

@Puporev · 27.01.2010, 17:32

Елена Най, Вы что, не можете сами написать ввод и вывод матрицы? Тогда найдите любой пример на матрицы на форуме и спишите.

@Tom_Sawyer · 27.01.2010, 19:46

ввод матрицы:

Pascal

repeat
    write('Количество строк до ',max,' m=');
  readln(m);
  until m in [1..max];
  repeat
    write('Количество столбцов до ',max,' n=');
  readln(n);
  until n in [1..max];
  for i:=1 to n do
   for j:=1 to m do
    begin
     write('a[',i,',',j,']:=');
     readln(a[i,j])
    end;

Добавлено через 1 минуту
вывод матрицы на экран:

Pascal

writeln('Исходная матрица:');
  for i:=1 to n do
   begin
    for j:=1 to m do
     write(a[i,j]:2,' ');
    writeln
   end;

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	27.01.2010, 17:32	2
	Елена Най, Вы что, не можете сами написать ввод и вывод матрицы? Тогда найдите любой пример на матрицы на форуме и спишите. 0

	27.01.2010, 19:46