Написать программу, которая в массиве случйных чисел С[1… 5,1…

uses crt; var C: array[1… 5,1… 5] of integer; i,j,temp: integer; begin randomize (); for i: =1 to 5 do for j: =1 to 5 do C[i,j]: =random (1000); for i: =1 to 5 do begin t: =C[i,i]; C[i,i]: =C[i,6-i]; C[i,6-i]: =t; endend.