• B правой части каждого сообщения есть стрелки и . Не стесняйтесь оценивать ответы. Чтобы автору вопроса закрыть свой тикет, надо выбрать лучший ответ. Просто нажмите значок в правой части сообщения.

  • 🚨 24 часа до повышения цены на курс «Пентест Active Directory: от теории к практике» от Академии Кодебай

    🔍 Изучите реальные техники атак на инфраструктуру Active Directory: от первоначального доступа до полной компрометации.
    🛠️ Освойте инструменты, такие как BloodHound, Mimikatz, CrackMapExec и другие.
    🧪 Пройдите практические лабораторные работы, имитирующие реальные сценарии атак.
    🧠 Получите знания, которые помогут вам стать востребованным специалистом в области информационной безопасности.

    Последний день записи в текущий поток по старой цене Подробнее о курсе ...

Помогите, пожалуйста, сделать программу.

  • Автор темы Автор темы eduard5
  • Дата начала Дата начала
E

eduard5

Дан массив и надо поменять местами диагонали. Н-р:
Дано:
5 2 7
4 6 8
1 9 3
Резутат:
7 2 5
4 6 8
3 9 1
Вот у меня начало.
Код:
const n=100; 
var 
massiv:array[1..n,1..n] of integer; 
res:array[1..n,1..n] of integer; 
row,column:integer; 
begin 
Randomize; 
writeln('исходный массив'); 
for row:=1 to n do begin 
for column:=1 to m do begin 
massiv[row,column]:=random(100); 
write(' ',massiv[row,column]:2); 
end; 
writeln; 
end;
 
а m во внутреннем for с какого потолка взялось? Вы программу на бумажке пишете или прям тут, на форуме?
Компилировать не умеете?
 
Мы в соцсетях:

Взломай свой первый сервер и прокачай скилл — Начни игру на HackerLab

Курс AD