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

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

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

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