Двумерные массивы Опции

[L_E_X]

Задача №1

10х10. Нужно обнулить главную диагональ матрицы...

Исходный:

1 1 1 1 1 1 1 1 1 1
2 2 2 2 2 2 2 2 2 2
3 3 3 3 3 3 3 3 3 3
4 4 4 4 4 4 4 4 4 4
5 5 5 5 5 5 5 5 5 5
6 6 6 6 6 6 6 6 6 6
7 7 7 7 7 7 7 7 7 7
8 8 8 8 8 8 8 8 8 8
9 9 9 9 9 9 9 9 9 9
10 10 10 10 10 10 10 10 10 10


Задача №2

10х10. Все кроме главной диагонали, заменить на число 2...

Исходный

1 2 3 4 5 6 7 8 9 10
1 2 3 4 5 6 7 8 9 10
1 2 3 4 5 6 7 8 9 10
1 2 3 4 5 6 7 8 9 10
1 2 3 4 5 6 7 8 9 10
1 2 3 4 5 6 7 8 9 10
1 2 3 4 5 6 7 8 9 10
1 2 3 4 5 6 7 8 9 10
1 2 3 4 5 6 7 8 9 10
1 2 3 4 5 6 7 8 9 10

Задача №3

5х5. Главную диагональ заменить на нули..

Исходный:

1 1 1 1 1
1 1 1 1 1
1 1 1 1 1
1 1 1 1 1
1 1 1 1 1

Сообщение отредактировано: L_E_X - 16.02.2012 19:29

[мисс_граффити]

сам что-то пробовал делать?
разобрался, какие индексы у элементов на главной диагонали?

[Lapp]

> обнулить главную диогональ

for i:=1 to n do a[i,i]:= 0;

> Все кроме главной диагонали, заменить на число 2

for i:=1 to n do for j:=1 to n do if i<>j then a[i,j]:= 2;