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

[Ам тя]

это матрица размером 5Х5
значения элементов выбрать самостоятельно
необходимо в матрице А сформировать другую матрицу В размером 5Х5
V равны соответствующим элементам исходной матрицы А
остольные же элементы равны 0
Предусмотреть ввод исходной матрицы А, ее контрольный вывод, пересылку ее в матрицу В, обработку и вывод ее результирующей матрицы В. Цикл обработки реализовать с помощью оператора цикл с параметром.


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

program rrr;
   var a,b:array[1..5,1..5] of integer;
       i,j:Integer;
begin
    Randomize;
    for i:=1 to 5 do
    for j:=1 to 5 do
  begin
   readln(a[i,j]);
  b[i,j]:=0;
  end;
    for i:=1 to 5 do
      begin
        for j:=1 to 5 do
        write(a[i,j]:8);
        Writeln;
      end;
    For i:=1 to 5 do
    b[i,i]:=a[i,i];
     For j:=1 downto 5 do
      b[i,6-i]:=a[i,6-i];

   for i:=1 to 5 do
     begin
       for j:=1 to 5 do
         write(b[i,j]:8);
         Writeln;
     end;

     Readln;
     end.

ыыы

[Greblin]

For i:=1 to 5 do
b[i,i]:=a[i,i];
For j:=1 downto 5 do
b[i,6-i]:=a[i,6-i];

Замени на

for i := 1 to 5 do
  b[i, 6-i] := a[i, 6-i];

[Ам тя]

for i:=1 to 5 do begin
for j:=1 to 5 do

b[i,6-i]:= a[i,6-i];
я вот так написала ,получ) спс