Помогите, пожалуйста, решить задачу на двумерный массив. (Pascal)

[Yara24]

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

Предупреждаю первый и последний раз - клонирование сообщений на форуме ЗАПРЕЩЕНО. Дубликат, размещенный в старой теме, удален.
Модератор.

 

[ww01031977]

if i=j then a[i,j]:=t else a[i,j]:=m
Ну надеюсь с масивами вы знакомы. Вот сама соль.

 

[ww01031977]

program masiv;
uses crt;
var с:array[1..5,1..5] of char;
i,j:integer;
begin
clrscr;
for i:=1 to 5 do
begin
for j:=1 to 5 do
if i=j then с[i,j]:='t' else с[i,j]:='m';
end;
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
write(с[i,j]:2);
end;
writeln;
end;
end.

 

[ww01031977]

или так
program masiv;
uses crt;
var с:array[1..5,1..5] of char;
i,j:integer;
begin
clrscr;
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
if i=j then с[i,j]:='t' else с[i,j]:='m';
write(с[i,j]:2);
end;
writeln;
end;
end.

 

[ww01031977]

или еще меньше:
program masiv;
uses crt;
var c:array[1..5,1..5] of char;
i,j:integer;
begin
clrscr;
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
if i=j then write('t ') else write('m ');
end;
writeln;
end;
end.

 

[Vladimir_S]

Последний (#5) вариант не годится: противоречит условию задачи. Там требуется всё-таки сформировать массив с, а не только вывести на экран. А в этой программе он как бы и вовсе выпал.

 

[Yara24]

Спасибо большое!

 

[ww01031977]

Последний (#5) вариант не годится: противоречит условию задачи. Там требуется всё-таки сформировать массив с, а не только вывести на экран. А в этой программе он как бы и вовсе выпал.

согласен, но дошло, только когда уже прога была на форуме..