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

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

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

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