Создать массив размерностью n×n элементов и заполнить его по образцу, например для матрицы 6×6. С процедурами

@Иринааа · Регистрация: 23.10.2015

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

Создать массив размерностью n×n элементов и заполнить его по образцу, например
для матрицы 6×6. С процедурами. Заранее большое спасибо.
0 1 0 0 1 0
1 1 1 1 1 1
0 1 0 0 1 0
1 1 1 1 1 1
0 1 0 0 1 0
1 1 1 1 1 1

@Peoples · 30.04.2016, 12:14

Pascal

program pr;
 
var
  i, n, j: integer;
  a: array [1..100, 1..100] of integer;
 
begin
  writeln('Введите размер матрицы');
  readln(n);
  for i := 1 to n do
    for j := 1 to n do
      if (i mod 2 = 0) then
      begin
        a[i, j] := 1;
      end
      else  
      begin
        a[i, 2] := 1;
        a[i, n - 1] := 1;
      end;
  for i := 1 to n do
  begin
    for j := 1 to n do
      write(a[i, j]:2);
    writeln;
  end;
end.

@Иринааа · 10.05.2016, 17:43 **[ТС]**

Peoples, спасибо)))

@Иринааа 0 / 0 / 0 Регистрация: 23.10.2015 Сообщений: 22
		1
	Создать массив размерностью n×n элементов и заполнить его по образцу, например для матрицы 6×6. С процедурами 30.04.2016, 11:56. Показов 3889. Ответов 2 Метки нет (Все метки) Создать массив размерностью n×n элементов и заполнить его по образцу, например для матрицы 6×6. С процедурами. Заранее большое спасибо. 0 1 0 0 1 0 1 1 1 1 1 1 0 1 0 0 1 0 1 1 1 1 1 1 0 1 0 0 1 0 1 1 1 1 1 1 0

@Иринааа 0 / 0 / 0 Регистрация: 23.10.2015 Сообщений: 22
	10.05.2016, 17:43 [ТС]	3
	Peoples, спасибо))) 0

Создать массив размерностью n×n элементов и заполнить его по образцу, например для матрицы 6×6. С процедурами

Решение