Программа

Mymindismy

Дата: Воскресенье, 23.11.2008, 21:17 | Сообщение # 1

Знакомый

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

Сообщений: 16

Репутация: 0

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

Статус: Offline

4. Составить программу, которая заполняет квадратную матрицу порядка n, натуральными числами 1,2,3...n^2,
записывая их в нее последовательно по строкам. Например , для n=5 получаем матрицу:
1 2 3 4 5
6 7 8 9 10
11 12 13 14 15
16 17 18 19 20
21 22 23 24 25

Seqular

Дата: Воскресенье, 23.11.2008, 21:41 | Сообщение # 2

Хранитель

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

Сообщений: 859

Репутация: 35

Статус: Offline

Ну тут очевидно нужен цикл вида:

Code

For i := 1 to N do
      For j := 1 to N do
           Begin
           Inc(c);
           a[i,j] := c;
           End;

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

		Пятница, 24.01.2025
	Pascal 4 All