Двумерный массив, Помогите решить задачу на двумерный массив Опции

[Yara24]

Помогите пожалуйста решить задачу на двумерный массив.
Дано: 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

[Freedom]

а ты хотябы сам пробовал сделать это?

[Freedom]

var c:array[1..5,1..5] of char;
    i,j:integer;
begin
 for i:=1 to 5 do for j:=1 to 5 do c[i,j]:='m';
for i:=1 to 5 do c[i,i]:='t';
for i:=1 to 5 do begin
 for j:=1 to 5 do
  write(c[i,j],' ');
 writeln;
end;
readln;
end.

Вот такие задания лёгкие спрашиваете

[volvo]

а ты хотябы сам пробовал сделать это?

Freedom,
А ты хотя бы перед одним из своих ответов думать пробовал? На кой, спрашивается, делать двойную работу? Одним циклом заполнить - слабО, надо обязательно еще один притянуть?

[Yara24]

Спасибо за помощь!