Сформировать квадратную матрицу порядка n

@Никита_Я12 · Регистрация: 12.03.2015

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

0 0 0 ...0 0 1
0 0 0 ...0 2 0
0 0 0 ...3 0 0
.................
0 n-1 0....0 0 0
n 0 0 ...0 0 0

@Cyborg Drone · 16.03.2015, 20:43

Pascal

const m = 26;
var i, j, n: integer;
    a: array [1..m, 1..m] of integer;
begin
  repeat
    write('n = ');
    readln(n);
    if not (n in [1..m]) then writeln('Error: n out of range 1..', m, ', reenter.')
  until n in [1..m];
  for i := 1 to n do
    begin
      for j := 1 to n do
        begin
          if i = n - j + 1
            then a[i, j] := i
            else a[i, j] := 0;
          write(a[i, j]:3)
        end;
      writeln
    end;
  readln
end.

@Никита_Я12 0 / 0 / 0 Регистрация: 12.03.2015 Сообщений: 6
		1
	Сформировать квадратную матрицу порядка n 16.03.2015, 17:47. Показов 1175. Ответов 1 Метки нет (Все метки) 0 0 0 ...0 0 1 0 0 0 ...0 2 0 0 0 0 ...3 0 0 ................. 0 n-1 0....0 0 0 n 0 0 ...0 0 0 0

Опции темы

Сформировать квадратную матрицу порядка n

Решение