Сейчас: Воскресенье, 08.02.2026, 19:11
  • Страница 1 из 1
  • 1
заполнить матрицу по основной диагонали 5, по дополнительной
Администратор
Offline
Дата: Пятница, 03.01.2014, 18:10 | Сообщение # 1
Помощник
Группа: Администраторы
Сообщений: 167
Награды: 0
Репутация: 60
заполнить матрицу по основной диагонали 5, по дополнительной 10.
верхнюю и нижнюю часть по 1.
а правую и левую часть по 0.
 
Администратор
Offline
Дата: Пятница, 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;
 
Администратор
Offline
Дата: Пятница, 03.01.2014, 18:11 | Сообщение # 3
Помощник
Группа: Администраторы
Сообщений: 167
Награды: 0
Репутация: 60
Код
ifj<i then a[i,j]:=0;
end;end;
 
  • Страница 1 из 1
  • 1
Поиск: