Question

Решите на паскале, срочно, пожалуйста​

Answer 1

Pascal

var

 a:array[1..5, 1..5] of integer;

 i: integer;

begin

 for i:= 1 to 5 do begin

   a[i, i]:= i;

   a[6-i,i]:=i;

 end;  

end.