Массив(Паскаль).Только подправить!

[Базиля]

Опиши по точнее, что тебе не ясно.

[Cas01]

вот мой результат:
Введите размер матриц a,b,c (nxn) <=5:
n=2
Заполните массив А
2
3
2
1
Заполните массив B
3
4
3
2
Заполните массив C
5
4
3
5
Массив А
23
21
Массив B
34
32
Массив C
54
35



нужно чтобы массив заполнялся вот так:

2 3
2 1

[Базиля]

нужно чтобы массив заполнялся вот так:

2 3
2 1

Я оставлю это без комментариев. Скажу только одно, постарайся вдумчиво почитать предыдущие посты. Будет желаение поймешь то что нужно.
P.S. Постарайся сам в это вникнуть, тебе же будет полезней

[Cas01]

мда.....получается какая то билебирда

[Базиля]

Кидай сюда что получается. Будем разбираться

[Cas01]

ай блин всё перепробывал




Program LAB_9;
Const Z=['À','à','Å','å','¨','¸','È','è','Î' ,'î','Ó','ó','Û','û','Ý','ý','Þ','þ ','ß','ÿ'];
VAR a,b,c:array[1..5,1..5] of char;
i,j,n,p,at,bt,ct,h:integer;
procedure Transp(ji,ij:char;Var jit,ijt:char);
Var f:char;
begin f:=ij; ij:=ji; ji:=f; jit:=ji; ijt:=ij; end;

BEGIN
writeln('Ââåäèòå ðàçìåð ìàòðèö a,b,c (nxn) <=5:');
write ('n='); readln(n);
at:=0; bt:=0; ct:=0;
for p:=1 to 3 do begin
if (p=1)then writeln('Çàïîëíèòå ìàññèâ À');
for i:=1 to n do
for j:=1 to n do
read(a[i,j]);
if (p=2)then writeln('Çàïîëíèòå ìàññèâ B');
for i:=1 to n do
for j:=1 to n do
read(a[i,j]);
if (p=3)then writeln('Çàïîëíèòå ìàññèâ C');
for i:=1 to n do
for j:=1 to n do
read(a[i,j]);
for i:=1 to n do begin
for j:=1 to n do begin
read(a[i,j]);
if (p=1)then begin readln(a[i,j]); if (a[i,j]in Z) then at:=1;end;
if (p=2)then begin readln(b[i,j]); if (b[i,j]in Z) then bt:=1;end;
if (p=3)then begin readln(c[i,j]); if (c[i,j]in Z) then ct:=1;end;end;end;end;
{×àñòü À}
if (at=1)then begin
h:=0;
for i:=1 to n do begin
h:=h+1;
for j:=h to n do
Transp(a[j,i],a[i,j],a[j,i],a[i,j]);end;end;

if (bt=1)then begin
h:=0;
for i:=1 to n do begin
h:=h+1;
for j:=h to n do
Transp(b[j,i],b[i,j],b[j,i],b[i,j]);end;end;

if (ct=1)then begin
h:=0;
for i:=1 to n do begin
h:=h+1;
for j:=h to n do
Transp(c[j,i],c[i,j],c[j,i],c[i,j]);end;end;

for p:=1 to 3 do begin
if (p=1)then write('Ìàññèâ À');
if (p=2)then begin writeln; write('Ìàññèâ B'); end;
if (p=3)then begin writeln; write('Ìàññèâ C'); end;
for i:=1 to n do begin
writeln;
for j:=1 to n do begin
if (p=1)then write (a[i,j]);
if (p=2)then write (b[i,j]);
if (p=3)then write (c[i,j]);end;end;end;

END.

[Cas01]

объясни мне и покажи плз!!!!!!!
а то у меня ещё одна прога висит

[Базиля]

Почитай про оператор read и readln. И попробуй уяснить между ними разницу
P.S. Ты пойми, если сам сейчас разберешься, позже такого вопроса возникать уже не будет.

объясни мне и покажи плз!!!!!!!

А смысл? Я тебе в другой задаче тоже самое написал, ты тупо списав, в следующей задаче задаешь тот же вопрос. Если я тебе сейчас все напишу, ты также тупо скатаешь, а толку от этого?

[Cas01]

ну я так понимаю что read Не переходит к след.строке после чтения, в отличии от readln.........

[Cas01]

ну я вот добился что массив А зап-ся нормально, а вот остальныыыые ниииикаааак(