for i:=1 to 5 do
for i:=1 to 5 do
if i=j then
c[i,j]:='t'
else
c[i,j]:='m';
Помогите пожалуйста решить задачу на двумерный массив(Pascal)
Помогите пожалуйста решить задачу на двумерный массив.
Дано: var c:array[1..5,1..5] of char
Заполнить массив следующим образом:
t m m m m
m t m m m
m m t m m
m m m t m
m m m m t
Дано: var c:array[1..5,1..5] of char
Заполнить массив следующим образом:
t m m m m
m t m m m
m m t m m
m m m t m
m m m m t