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

Question

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

Comments

Где брать предлагаете этот Pascal ABC? Разработчки в 2007 году закрыли этот проект и перешли на PascalABC.NET.

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.

Comments

Буду знать на будущие проекты

---

Если что-то хотите серьезное делать - есть формум Южного федерального университета по PascalABC.NET

---

Основные проекты, обычно, на PHP (склоняюсь к веб-программированию и прочему). Но буду знать к кому обращаться, если возникнут трудности с PascalABC.Net средой)

---

Годится

---

Не за что. Если что непонятно, смогу пояснить. Обращайтесь

---

Сейчас просмотрю, если будут по силам - обязательно помогу