паскаль. матрица

[vykker]

Дана целочисленная матрица A размерности 5*5 . Вывести ее элементы из каждого столбца в обратном порядке.

вот:

var i,j:integer; a:array[1..5,1..5] of integer;
begin
   for i:=5 downto 1 do
   for j:=5 downto 1 do

[Grag]

Забыл поставить "END" в конце...

[vykker]

но так она не заработает)
можно подробнее?

[ROMA2PVT]

Конечно незаработает.Матрицу для начала заполнить непробовал.

writeln('Результирующая матрица: ');
  For i:=n downto 1 do
  begin
   For j:=1 to m do
  begin
   write(mas[i,j]:3);
   end;
 writeln;
 end;

[vykker]

если честно то не получается

[ROMA2PVT]

Да уж!!

uses
   crt;
var
  mas:array[1..20,1..20] of integer;
  i,j,n,m:integer;
begin
clrscr;
randomize;
write('Введите количество строк: ');
readln(n);
write('Введите количество столбцов: ');
readln(m);
writeln('Исходная матрица: ');
For i:=1 to n do
begin
 For j:=1 to m do
  begin
  mas[i,j]:=random(10)-5;
  write(mas[i,j]:3);
  end;
  writeln;
  end;
  writeln;
  writeln('Результирующая матрица: ');
  For i:=n downto 1 do
  begin
   For j:=1 to m do
  begin
   write(mas[i,j]:3);
   end;
 writeln;
 end;
readln;
end.

[vykker]

ладно, спасибо))
пойду учить паскаль

[ROMA2PVT]

пойду учить паскаль

Давно пора.

[vykker]

Сообщение от ROMA2PVT

Давно пора.

ктоже знал что надо))

[vykker]

и еще, если не трудно, что значит эта строка

mas[i,j]:=random(10)-5;