Написать программу, которая в массиве случайных чисел С[1.5,1.5] меняет местами значения элементов главной и вспомогательной диагонали

@Nck · Регистрация: 01.11.2012

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

Написать программу, которая в массиве случайных чисел С[1..5,1..5] меняет местами значения элементов главной и вспомогательной диагонали.

@ermolay · 26.01.2013, 01:16

Pascal

const
  n=5;
var
  a: array[1..n,1..n] of integer;
  i,j: byte;
  t: integer;
begin
  writeln('Èñõîäíàÿ ìàòðèöà:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(99)+1;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln;
  writeln('Ïðåîáðàçîâàííàÿ ìàòðèöà:');
  for i:=1 to n do
  begin
    t:=a[i,i];
    a[i,i]:=a[i,n+1-i];
    a[i,n+1-i]:=t;
  end;
  for i:=1 to n do
  begin
    for j:=1 to n do
      write(a[i,j]:4);
    writeln;
  end;
end.

@Nck 1 / 1 / 0 Регистрация: 01.11.2012 Сообщений: 29
		1
	Написать программу, которая в массиве случайных чисел С[1.5,1.5] меняет местами значения элементов главной и вспомогательной диагонали 25.01.2013, 20:12. Показов 2364. Ответов 1 Метки нет (Все метки) Написать программу, которая в массиве случайных чисел С[1..5,1..5] меняет местами значения элементов главной и вспомогательной диагонали. 0

	26.01.2013, 01:16

Написать программу, которая в массиве случайных чисел С[1.5,1.5] меняет местами значения элементов главной и вспомогательной диагонали

Решение