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

[Cas01]

Короче прогу я сделал!!!!!Но нужна помощь!!!СРОЧНО!!!!!
Вот условие - Дана матрица размера 5 X 10.Найти мин,макс значение в каждой строке.Препод подкапался до того что когда я ввожу эл-ты массива,они должны распологаться во так:

2 3
1 2
Вот я сделал её:

program Lab5_2;
var a:array[1..5,1..10] of integer;
i,j,n,m,min,max,k,t:integer;
begin
write('vvedite razmernost massiva n-m>'); readln(n,m);
for i:=1 to n do
for j:=1 to m do begin
write('a[',i,',',j,']='); readln(a[i,j]);
end;
max:=a[1,1];
min:=a[1,1];
for i:=1 to n do begin
min:=a[i,1];max:=a[i,1];k:=0;
for j:=1 to n do begin
k:=k+1;
if a[i,j]> max then max:=a[i,j];
if a[i,j]< min then min:=a[i,j];
if k=n then writeln ('min=',min,'  max=',max,'');
end;
end;
for j:=1 to m do begin
min:=a[1,j];max:=a[1,j];t:=0;
for i:=1 to m do begin
t:=t+1;
if a[i,j]> max then max:=a[i,j];
if a[i,j]< min then min:=a[i,j];
if t=m then writeln ('min=',min,'  max=',max,'');
end;
end;
end.

Вот рез-ат:
vvedite razmernost massiva n-m>2
2
a[1,1]=2
a[1,2]=3
a[2,1]=1
a[2,2]=2
min=2 max=3
min=1 max=2
min=1 max=2
min=2 max=3



Препод подкапался до того что когда я ввожу эл-ты массива,они должны распологаться во так:

2 3
1 2

ПОМОГИТЕ ПЛЗ!!!!!!!!!!!!Заранее СПАСИБО!!!!!!!!!!

[KEA0301]

Ну вообще, если ты хочешь чтобы вводить нужно было так:
vvedite razmernost massiva n-m>2
2
vvedite matricu:
2 3
1 2

То ввод будет примерно таким:
write('vvedite matricu:');
for i:=1 to n do
for j:=1 to m do
read(a[i,j]);

А еще избавься от переменных K и T а writeln вынеси за вложенный цикл.

[Cas01]

KEA0301 а ты не мог бы написать целиком прогу исправленную,а я потом разберусь что куда!!!!Просто оч очень срочно надо!!!!

ПЛЗ!!!!!!!

[Базиля]

модератору на удаление

[Cas01]

т.е. мне заменять вот этот фрагмент?
write('vvedite razmernost massiva n-m>'); readln(n,m);
for i:=1 to n do
for j:=1 to m do begin
write('a[',i,',',j,']='); readln(a[i,j]);

[Базиля]

черт, я туплю. Заменяй свой ввод на

for i:=1 to n do
for j:=1 to m do
read(a[i,j]);

и все будет норм. Вводишь прям в строку элементы строки. Напрмер
2 3 4 5 6
2 3 4 5 7
3 4 5 6 9

т.е. мне заменять вот этот фрагмент?
write('vvedite razmernost massiva n-m>'); readln(n,m);
for i:=1 to n do
for j:=1 to m do begin
write('a[',i,',',j,']='); readln(a[i,j]);

общий вид у тебя будет

program Lab5_2;
var a:array[1..5,1..10] of integer;
i,j,n,m,min,max,k,t:integer;
begin
write('vvedite razmernost massiva n-m>'); readln(n,m);
for i:=1 to n do
for j:=1 to m do
read(a[i,j]);
max:=a[1,1];
min:=a[1,1];
for i:=1 to n do begin
min:=a[i,1];max:=a[i,1];k:=0;
for j:=1 to n do begin
k:=k+1;
if a[i,j]> max then max:=a[i,j];
if a[i,j]< min then min:=a[i,j];
if k=n then writeln ('min=',min,' max=',max,'');
end;
end;
for j:=1 to m do begin
min:=a[1,j];max:=a[1,j];t:=0;
for i:=1 to m do begin
t:=t+1;
if a[i,j]> max then max:=a[i,j];
if a[i,j]< min then min:=a[i,j];
if t=m then writeln ('min=',min,' max=',max,'');
end;
end;
end.

И еще я заметил что ты зачем-то ищешь макс и мин в каждом столбце, когда тебе по условию требуется только в строке.

[Cas01]

Спасибо огромное!!!!!!!
А не посмотришь анологичную ситуацию,я не допираю как тут сделать тоже самое:
Даны 3 символьные матрицы.Ту матрицу,где есть хотя бы одна глассныя-транспонировать
В той ,на главной диоганали которой все цифры,найти наим. и удалить соотв. строку.
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('Заполните массив А');
if (p=2)then writeln('Заполните массив B');
if (p=3)then writeln('Заполните массив C');
for i:=1 to n do begin
for j:=1 to n do begin
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.


Я че та даже с примером не допираю))))туплю)))))
не поможешь?)

[Базиля]

Измени свой предыдущий код на:

program Lab5_2;
var a:array[1..5,1..10] of integer;
i,j,n,m,min,max:integer;
begin
write('vvedite razmernost massiva n-m>'); readln(n,m);
for i:=1 to n do
for j:=1 to m do
read(a[i,j]);
max:=a[1,1];
min:=a[1,1];
for i:=1 to n do
begin
max:=a[i,1];
min:=a[i,1];
for j:=1 to m do
begin
if a[i,j]>max then max:=a[i,j];
if a[i,j]<min then min:=a[i,j];
end;
write('максимум ',i,'-ой строки=',max);
write('     ');
write('минимум ',i,'-ой строки=',min);
writeln;
end;
end.

тебе не требуется искать макс и мин в столбцах

не поможешь?)

Я сейчас ухожу, если до моего прихода никто не откликнется, отпишусь.

[Cas01]

спасибо...так что насчет пред.поста?)

[Cas01]

аааа.....ОК!!!!!!!!