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

@kiselev1994 · Регистрация: 13.06.2013

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

. Сформировать квадратную матрицу порядка n по заданному образцу
1 1 1 … 1 1 1
1 0 0 … 0 0 1
1 0 0 … 0 0 1
…………….
1 0 0 … 0 0 1
1 1 1 … 1 1 1

@YaRom · 13.06.2013, 13:57

Pascal

const n=10;
var
  i,j:integer;
  a:array[1..n,1..n] of integer;
 
begin
  for i:=1 to n do
    for j:=1 to n do
    begin
      if (i=1) or (i = n) or (j=1) or (j=n) then a[i,j]:=1 else a[i,j]:=0;
    end;
 
  for i:=1 to n do
  begin
    for j:=1 to n do
      write(a[i,j]:2);
    writeln;
  end;
  readln
end.

@kiselev1994 0 / 0 / 0 Регистрация: 13.06.2013 Сообщений: 7
		1
	. Сформировать квадратную матрицу порядка 13.06.2013, 13:53. Показов 1078. Ответов 1 Метки нет (Все метки) . Сформировать квадратную матрицу порядка n по заданному образцу 1 1 1 … 1 1 1 1 0 0 … 0 0 1 1 0 0 … 0 0 1 ……………. 1 0 0 … 0 0 1 1 1 1 … 1 1 1 0

Опции темы

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

Решение