Получить квадратную матрицу по правилу - Pascal ABC (16808)

Формулировка задачи:

Даны действительные числа a1,a2,a3..an вводимые с клавиатуры. Получить квадратную матрицу порядка n: Заранее спасибо.

Код к задаче: «Получить квадратную матрицу по правилу - Pascal ABC (16808)»

textual
const m = 10;
var a: array [1..m] of integer;
    b: array [1..m, 1..m] of integer;
    i, j, n: integer;
begin
  repeat
    write('n = ');
    readln(n);
    if (n < 1) or (n > m) then writeln('n out of range 1..', m, ', reenter.')
  until (n >= 1) and (n <= m);
  writeln('Enter numbers:');
  for i := 1 to n do
    begin
      write(i:2, ': ');
      readln(a[i])
    end;
  writeln('Result:');
  for j := 1 to n do
    begin
      for i := 1 to n do
        begin
          b[i, j] := a[(i + j - 2) mod n + 1];
          write(b[i, j]:8)
        end;
      writeln
    end;
  readln
end.

11   голосов, оценка 4.455 из 5


СОХРАНИТЬ ССЫЛКУ