не могу найти ошибку

[Асик]

программа должна менять 1 и предпоследнюю строки местами.....ошибка в том, что что-то недописал...непонимаю че еще надо.....говорят что не меняет...(((

Паскаль

var a:array[1..10,1..10] of integer;
s:integer;
i,j:integer;
begin
for i:=1 to n do begin
for j:=1 to n do begin
readln(a[i,j]);
for j:=1 to n do bein
s:=a[1,j];
a[1,j]:=a[n-1,j];
a[n-1,j]:=s;

[rubius2008]

1. Переменная n - не зарегистрирована и ее значение не определено.
2. Надо end для каждого begin поставить.
3. И наверно надо вывести матрицу после перестановок, чтоб видно было.

[Асик]

ну n же можно в array вместо "10" написать?
вывод тоже допишу...проблема в том, что он строки не меняет...мне сказали что там еще что то дописать надо...((( не понимааю... вроде другие программы смотрел алгоритм примерно такой же...

[Hacker19_90]

выложи полный код! Тогда и посмотрим!

[rubius2008]

Сообщение от Асик

ну n же можно в array вместо "10" написать?
вывод тоже допишу...проблема в том, что он строки не меняет...мне сказали что там еще что то дописать надо...((( не понимааю... вроде другие программы смотрел алгоритм примерно такой же...

Тогда n в константах надо регистрировать.
Скорей всего проблема с расставленными end-ами. Не там, где надо.
Предоставь весь код программы, полностью, тогда сразу будет все понятно.

[Асик]

program Project345345;

{$APPTYPE CONSOLE}

uses
SysUtils;
const n=4;
var a:array[1..n,1..n]of integer;
b:array[1..n]of integer;
i,j:integer;
begin
randomize;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(101)-50;
write(a[i,j]:5);
end;
writeln;
end;
writeln('izmenennaya:');
for i:=1 to n do begin
for j:=1 to n do
b[i]:=a[1,j];
a[1,j]:=a[n-1,j];
a[n-1,j]:=b[i];
write(a[i,j]:5);
end;
readln;
end.

[Асик]

это переделал щас...все равно не работает..

[Hacker19_90]

program Project345345;

{$APPTYPE CONSOLE}

uses
SysUtils;
const n=4;
var a:array[1..n,1..n]of integer;
b: integer;
i,j:integer;
begin
randomize;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(101)-50;
write(a[i,j]:5);
end;
writeln;
end;
writeln('izmenennaya:');
for j:=1 to n do
begin
b:=a[1,j];
a[1,j]:=a[n-1,j];
a[n-1,j]:=b;
end;
for i:=1 to n do begin
for j:=1 to n do
write(a[i,j]:5);
end;
readln;
end.

[Serge_Bliznykov]

можно так:

uses
SysUtils; 

const n = 4;

               {n+1 строка - как временный буфер }
var a: array[1..n+1, 1..n] of integer;
  i, j: integer;
begin
  randomize;
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i, j] := random(101) - 50;
      write(a[i, j]: 5);
    end;
    writeln;
  end;

  {вот три строчки, которые меняют
     местами первую и предпоследнюю строки массива}
  a[n+1] := a[1];
  a[1] := a[n-1];
  a[n-1] := a[n+1];


  {выведем изменённый массив на экран}
  writeln('izmenennaya matrica:');
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      write(a[i, j]: 5);
    end;
    writeln;
  end;
  readln;
end.

p.s. ничего, что я при замене обошёлся без циклов?
если хотите, могу и с циклом нарисовать пример...

[Асик]

Спасииибо огрооомнейшее)))