двухмерный массив(паскаль)

[Артл]

в каждой строке поменять первый элемент с последним
я вот сделал, но что первый элемент заменяется последним, а последний первым нет что исправить?

for i:=1 to m do
begin
for j:=1 to n  do
begin
c:=a[i,1];
  a[i,1]:=a[i,n];
  a[i,n]:=c;
write(a[i,j],' ')

[Hacker19_90]

Вообще-то это в один цикл делается вот так

for i := 1 to m do
begin
    temp := a[i,1];
    a[i,1] := a[i,n];
    a[i,n] := temp;
end;

[Артл]

for i:=1 to m do

begin
c:=a[i,1];
  a[i,1]:=a[i,n];
  a[i,n]:=c;
write(a[i,j],' ');

как то неправильно выводится, что не так?

[Hacker19_90]

Что не правильно выводится??
Кидай уже весь код тогда и скажу что не правильно!

[Артл]

uses crt;
const m=3;n=6; var i,j,c:integer;
var a:array[1..m,1..n] of integer;
begin
clrscr;
writeln('Ìàññèâ:');
for i:=1 to m do
begin
for j:=1 to n do
 begin
  a[i,j]:=random(10);
  write(a[i,j],' ');
 end;
 writeln;
end;


writeln;
for i:=1 to m do begin
for j:=1 to n do
begin
c:=a[i,1];
  a[i,1]:=a[i,n];
  a[i,n]:=c;
write(a[i,j],' ');
end;
writeln; end;
 end.

[Novi4ok_11]

n присвоить нада последнему перед вторым циклом

n:=m;
for i:=1 to m do

begin
c:=a[i,1];
  a[i,1]:=a[i,n];
  a[i,n]:=c;
write(a[i,j],' ');
end;
writeln;
 end.

[Артл]

сейчас отредактировал сообщение с кодом

[Hacker19_90]

Вот вы что тут выводить собрались??

for i:=1 to m do

begin
c:=a[i,1];
  a[i,1]:=a[i,n];
  a[i,n]:=c;
write(a[i,j],' ');
end;

Вот чему по вашему равен j??
С начало надо подготовить массив(то есть произвести замены), а потом с помощью ещё одного цикла выводить его!

[Hacker19_90]

То есть так

begin
    clrscr;
    writeln('Ìàññèâ:');
    for i:=1 to m do
    begin
         for j:=1 to n do
         begin
               a[i,j]:=random(10);
               write(a[i,j],' ');
         end;
         writeln;
    end;


    writeln;
    for i:=1 to m do
    begin
        c:=a[i,1];
        a[i,1]:=a[i,n];
        a[i,n]:=c;
    end;
for i:=1 to m do
    begin
         for j:=1 to n do
         begin
               write(a[i,j],' ');
         end;
         writeln;
    end;

writeln;
end.

[Артл]

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