Квадратичная матрица

@Aleshh · Регистрация: 15.01.2017

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

Заполнить квадратную матрицу А[N,N] (на примере А[5,5])
12345
23450
34500
45000
50000

@ZX Spectrum-128 · 17.04.2017, 13:37

Pascal

const
  n = 5;
 
var
  i, j: integer;
  a: array [1..n, 1..n] of integer;
 
begin
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      if i <= n - j + 1 then
        a[i, j] := j + i - 1
      else
        a[i, j] := 0;
      write(a[i, j]:5);
    end;
    writeln;
  end;
end.

@Aleshh 0 / 0 / 0 Регистрация: 15.01.2017 Сообщений: 84
		1
	Квадратичная матрица 17.04.2017, 13:29. Показов 1604. Ответов 1 Метки нет (Все метки) Заполнить квадратную матрицу А[N,N] (на примере А[5,5]) 12345 23450 34500 45000 50000 0

	17.04.2017, 13:37

Квадратичная матрица

Решение