Написать программу, которая в массиве случйных чисел с[1..5,1..5] меняет местами значения элементов главной и диагонали

205

280

Посмотреть ответы 3

Ответы на вопрос:

mskamilee

Информатика

4,5(6 оценок)

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;

end

end.

прррррррррррррря

Информатика

4,7(54 оценок)

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.