Question

65 баллов даю. Pascal abc.
Дан массив размером n×n, элементы которого целые числа. Вывести на экран элементы, расположенные под главной и под побочной диагональю. При решении использовать двумерный массив.

Answer 1

Если я правильно понял, то

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.