Двумерный массив

kms

Дата: Среда, 14.01.2009, 01:00 | Сообщение # 1

Новичок

Группа: Пользователи

Сообщений: 9

Репутация: 0

Замечания: 20%

Статус: Offline

2. заполнить массив А размеров хм следующим образом,например,для м=5

1 0 0 0 1
0 1 0 1 0
0 0 1 0 0
0 1 0 1 0
1 0 0 0 1

Seqular

Дата: Среда, 14.01.2009, 08:32 | Сообщение # 2

Хранитель

Группа: Администраторы

Сообщений: 859

Репутация: 35

Статус: Offline

Code

Uses CRT;
Const m = 5;
Var i, j: Integer;
     a: Array[1..m, 1..m] of Integer;
Begin
ClrScr;
For i := 1 to m do
     Begin
     a[i, i] := 1;
     a[i, m-i+1] := 1;
          For j := 1 to m do
              Begin
              Write(a[i,j]:4);
              End;
     Writeln;
     End;
Readkey;
End.

Поддерживаю также проект сообщество молодых сисадминов

		Четверг, 09.01.2025
	Pascal 4 All