program2

Сейчас: Воскресенье, 08.02.2026, 19:11

Дата: Пятница, 03.01.2014, 18:10 | Сообщение # 1

Помощник

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

Сообщений: 167

Награды: 0

Репутация: 60

заполнить матрицу по основной диагонали 5, по дополнительной 10.
верхнюю и нижнюю часть по 1.
а правую и левую часть по 0.

Дата: Пятница, 03.01.2014, 18:11 | Сообщение # 2

Помощник

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

Сообщений: 167

Награды: 0

Репутация: 60

Код

for i:=1 to n do begin
for j:=1 to n do begin
if i=j then a[i,j]:=5;
if i+j=n+1 then a[i,j]:=10;
if i<j then a[i,j]:=1;

Дата: Пятница, 03.01.2014, 18:11 | Сообщение # 3

Помощник

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

Сообщений: 167

Награды: 0

Репутация: 60

Код

ifj<i then a[i,j]:=0;
end;end;

ИНФОРМЕР	ИНФОРМЕР	ИНФОРМЕР	ИНФОРМЕР
КОД	КОД	КОД	КОД

Текст сообщения *: