В массиве А(3,3) поменять местами значения первой строки и первого столбца

@net_haker1 · Регистрация: 02.10.2013

В массиве А(3,3) поменять местами значения первой строки и первого столбца.

@ildwine · 18.12.2013, 13:02

Pascal

const
  n = 3;
var
  a : array [1..n, 1..n] of integer;
  i, j, k : integer;
begin
  k := 1;
  writeln('исходный массив:');  
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i,j] := k;
      write(a[i,j]:4);
      inc(k)
    end;
    writeln
  end;
  writeln('новый массив:');
  i := 1;
  for j := 1 to n do
    if i + j = 3 then
    begin
      k := a[i,j];
      a[i,j] := a[j,i];
      a[j,i] := k
    end;
  for i := 1 to n do
  begin
    for j := 1 to n do write(a[i,j]:4);
    writeln
  end
end.

@net_haker1 0 / 0 / 2 Регистрация: 02.10.2013 Сообщений: 155
		1
	В массиве А(3,3) поменять местами значения первой строки и первого столбца 18.12.2013, 09:14. Показов 2228. Ответов 1 Метки нет (Все метки) В массиве А(3,3) поменять местами значения первой строки и первого столбца. 0

Опции темы

В массиве А(3,3) поменять местами значения первой строки и первого столбца

Решение