Получить квадратную матрицу по правилу

@Bomboos · Регистрация: 04.10.2009

Привет всем, помогите получить матрицу и по возможности не много объяснить принцип. Не первый раз попадаются задания сделать матрицы, а я уж совсем не понимаю их(

@ermolay · 25.12.2012, 16:07

Pascal

const
  nmax=20;
var
  a: array[1..nmax,1..nmax] of integer;
  n,i,j: byte;
begin
  write('Введите размерность массива: ');
  readln(n);
  writeln('Матрица:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      if (i=j)or(i+j=n+1) then a[i,j]:=1
        else a[i,j]:=0;
      write(a[i,j]:4);
    end;
    writeln;
  end;
end.

@Bomboos 15 / 15 / 3 Регистрация: 04.10.2009 Сообщений: 219
		1
	Получить квадратную матрицу по правилу 25.12.2012, 15:36. Показов 990. Ответов 1 Метки нет (Все метки) Привет всем, помогите получить матрицу и по возможности не много объяснить принцип. Не первый раз попадаются задания сделать матрицы, а я уж совсем не понимаю их( Изображения 0

Опции темы

Получить квадратную матрицу по правилу

Решение