Двумерный массив. Заполнение

10

Заполнение массива случайными числами:

For i := 1 to 3 do begin

For j := 1 to 4 do begin

a[i, j] := random(21) - 10; write(a[i, j]:6);

end; Когда i-я строка

writeln;

end;

Двумерный массив. Заполнение

11

i , 1, N

j , 1, N

a i , j=

случайное[-10;10]

Вывод a i , j

Цикл отвечающий за перебор строк. (Внешний цикл)

Цикл отвечающий за перебор ячеек в каждой строке. (Внутренний цикл)

Двумерный массив. Заполнение

12

Заполнение массива по правилу:

ClrScr;

Заполнить

размеромWrite('ВВедиN x N правилу:For i:=1 to n

11111For j:=1 to n

22222

33333	write(a[i,j]
44444	end;

55555

writeln;

end;

строки равно номеру строки.

Двумерный массив. Заполнение	13
ClrScr;	');Readln(n);

begin

n+1) then a[i,j]:=1 else a[i,j]:=0;

write(a[i,j]);

end;

writeln;

end;

Если побочная диагональ то заполнить ячейку 1 во всех остальных случаях 0

10000

Двумерный массив. Заполнение			14
	Ввод N
	i , 1, N
	j , 1, N		Фрагмент
Нет	i+j=N+1
		Да	блок-схемы
			задачи
a i , j= 0		a i , j= 1	заполнения
			побочной
			диагонали
	Вывод a i , j		единицами

Двумерный массив. Заполнение

15

1		2	3	4	5
1 a11
		a22	a
			33

2 a44

a55

Удовлетворяет

неравенству

i < j

3

4

Удовлетворяет

неравенству

i > j

Двумерный массив. Заполнение				16
1	2	3	4	5

Удовлетворяет

неравенству

i+j<n+1

a15 1

a33 a24

a42 2 a51

Удовлетворяет 3

неравенству

i+j>n+1 4

Двумерный массив. Заполнение

17

Системы неравенств

(i+j<n+1) And (i<j)

(i+j<n+1)

And (i>j)

	a11				a15
		a22	a	a24
			33
2		a42		a44
	a51				a55

(i+j>n+1)

And (i<j)

(i+j>n+1) And (i>j)

Двумерный массив. Заполнение

18

Write('ВВеди N = '); Readln(n); For i:=1 to n do begin

For j:=1 to n do begin

if (i+j>=n+1) and (i<=j) then a[i,j]:=1 else a[i,j]:=0;

write(a[i,j]:2);

end;

writeln;

end;

Двумерный массив. Сумма элементов		19
Второй способ. Два прохода по массиву
Замечание.
Если нужно что то сделать только
с главной диагональю,
то можно обойтись без вложенных циклов
For i:=1 to n do s:=s+ a[i,i];
For i:=1 to n do	Находим сумму.
For j:=1 to n do
if (i=j) then s:=s+ a[i,j];
writeln('Сумма элементов =',s:5);