uses crt;
const
n=3;m=3;
var
a:array[1..n , 1..m] of byte;
i,j,max,imax,jmax:byte;
begin
for i:=1 to n do
for j:=1 to m do begin
writeln('a[',i,j,']'); readln(a[i,j]);
end; writeln;
imax:=1;jmax:=1;
max:=a[imax,jmax];
max:=a[1,1];
For i:=1 to n do begin
For j:=1 to m do begin
If max< a[i,j] then
max:=a[i,j] end end;
imax:=1; jmax:=1;
for i:=1 to n do
for j:=1 to m do
if a[i,j] > a[imax,jmax] then begin
imax:= i;
jmax:= j end;
writeln;
for i:=1 to n do begin
for j:=1 to m do
write(a[i,j], ' '); writeln; end;
writeln;
write(max); read; end.
необходимо:удалить столбец содержащий максимальный элемент матрицы,(это я пытался сделать...но ничего не вышло,мои попытки:
For i:=imax to n do
For j:=1 to n do
a[i,j]:=a[i+1,j];
For i:=1 to n do
For j:=jmax to n do
a[i,j]:=a[i,j+1];
,,,,,,,,
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;
for j:=jmax to n-1 do
for i:=1 to n do
a[i,j]:=a[i,j+1];
,,,,,,,,,,,,,,,,,,,,,,,,,,,
for i:=1 to n do begin
for j:=1 to m do
write(a[i,j], ' '); writeln; end;
writeln;
write(max); read; end.
for i := 1 to N do
for j := jmax to m - 1 do
a[i, j] := a[i, j + 1];
Dec(i,M);
нечетные отрицательные элементы элементы первой строки расположить по убыванию,,на этот счет вообще нет никаких мыслей.
кто может прошу помочь!
Сообщение отредактировано: volvo -