Если я правильно понял, то
var a: array of array of integer;
n,i,j: integer;
begin
write('Введите N: ');
readln(n);
setlength(a,n);
for i:=0 to n-1 do setlength(a[i],n);
for i:=0 to n-1 do
for j:=0 to n-1 do a[i,j]:=random(n)*2;
writeln('Вывод матрицы :');
for i:=0 to n-1 do begin
writeln;
for j:=0 to n-1 do write(a[i,j],' ');
end;
writeln;
writeln('Главная диагональ :');
for i:=0 to n-1 do for j:=0 to n-1 do if (i-j=0) then write(a[i,j],' ');
writeln;
writeln('Побочная диагональ :');
for i:=0 to n-1 do for j:=0 to n-1 do if (i+j=n-1) then write(a[i,j],' ');
readln;
end.
Прикладная программа, или приложение, — программа, предназначенная для выполнения определённых задач и рассчитанная на непосредственное взаимодействие с пользователем. В большинстве операционных систем прикладные программы не могут обращаться к ресурсам компьютера напрямую, а взаимодействуют с оборудованием и другими программами посредством операционной системы. Также на простом языке — вс программы.
К прикладному программному обеспечению относятся компьютерные программы, написанные для пользователей или самими пользователями для задания компьютеру конкретной работы. Программы обработки заказов или создания списков рассылки — пример прикладного программного обеспечения. Программистов, которые пишут прикладное программное обеспечение, называют прикладными программистами.