program pr; uses crt; var i,j,b: integer; c: array[1..5, 1..5] of integer; beginfor i: =1 to 5 do beginwriteln; for j: =1 to 5 do begin c[i,j]: =random(100); write(c[i,j],'|'); end; end; for i: =1 to 5 do begin b: =c[i,i]; c[i,i]: =c[i,6-i]; c[i,6-i]: =b; end; writeln; for i: =1 to 5 do beginwriteln; for j: =1 to 5 do write(c[i,j],'|'); end; readln; end.
Поделитесь своими знаниями, ответьте на вопрос:
Про что можно сделать простой мультик на информатику