возведение в квадрат элементов главной диагонали матрицы. Паскаль

[hardrace]

здравствуйте, мне в институте(на первом курсе) дали такое задание: задана квадратная матрица(n*n). получить последовательность из членов главной диагонали, расположенной слева направо, возведённых в квадрат и расположенных по возрастающей, последовательность вывести на печать.
кому не трудно можете код программы дать?...
+ещё по делфи дали но это потом
проблема в том что эти языки в технаре мы не изучали(паскаль не успели-препод ушёл) поэтому щас приходится туго

[VilAm]

VAR I,J,K,N,TMP:INTEGER;
 A:ARRAY[1..50] OF INTEGER;
 B:ARRAY[1..50,1..50] OF INTEGER;
SWOP:BOOLEAN;
BEGIN
  n:=5;
FOR I:=1 TO N DO
FOR J:=1 TO N DO
B[I,J]:=RANDOM(50);
FOR I:=1 TO N DO BEGIN
FOR J:=1 TO N DO
WRITE(B[I,J]:4);
WRITELN;END;
FOR I:=1 TO N do
A[i]:=SQR(B[I,I]);
K:=N;
repeat
swop:=false;
for i:=1 to K-1 do
if A[i]>A[i+1] then begin
TMP:=A[I+1];
A[I+1]:=A[i];
A[i]:=TMP;
 swop:=true; end;
K:=K-1;
until not swop;
FOR I:=1 TO N do
WRITE(A[i]:8);
READLN;
END.

[sadfeel]

uses crt;
var
n,i,j,p : integer;
a : array[1..100,1..100] of integer;
posled : array[1..100] of integer;

begin
clrscr;
writeln('vvedite colvo elementov');
readln(n);

for i:=1 to n do
for j:=1 to n do
begin
write('a[',i,']','[',j,']');
readln(a[i,j]);
end;

for i:=1 to n do
for j:=1 to n do
if i = j then posled[i] := sqr(a[i,j]);

for j:=1 to n do
for i:=2 to n do
if posled[i] < posled[i-1] then
begin
p := posled[i];
posled[i] := posled[i-1];
posled[i-1] := p;
end;

writeln('novaya posledovatel`nost');
for i:=1 to n do
write(posled[i],' ');
readkey;
end.

Писал в блокноте...........должно работать.............

[hardrace]

всем огромное спасибо

[hardrace]

VilAm ввожу n и программа ничего не делает, что не так?
sadfeel программа работает но похоже немного не так-я ввёл 9 элементов(1,2,3,4,5,6,7,8,9) поидее должна быть последовательность 1,5,9 но прога выдала 1,2,5,8,1 и почему-то в квадрат не возводит. что делать?

[VilAm]

вот рабочий код

VAR I,J,K,N,TMP:INTEGER;
 A:ARRAY[1..50] OF INTEGER;
 B:ARRAY[1..50,1..50] OF INTEGER;
SWOP:BOOLEAN;
BEGIN
  n:=5;{заменить на readln(n);}
FOR I:=1 TO N DO
FOR J:=1 TO N DO
B[I,J]:=RANDOM(50);
FOR I:=1 TO N DO BEGIN
FOR J:=1 TO N DO
WRITE(B[I,J]:4);
WRITELN;END;
FOR I:=1 TO N do
A[i]:=SQR(B[I,I]);
K:=N;
repeat
swop:=false;
for i:=1 to K-1 do
if A[i]>A[i+1] then begin
TMP:=A[I+1];
A[I+1]:=A[i];
A[i]:=TMP;
 swop:=true; end;
K:=K-1;
until not swop;
FOR I:=1 TO N do
WRITE(A[i]:8);
READLN;
END.

прога выдала 1,2,5,8,1

она выдала 1 25 81 квадраты 1 5 9

[sadfeel]

Сообщение от hardrace

VilAm ввожу n и программа ничего не делает, что не так?
sadfeel программа работает но похоже немного не так-я ввёл 9 элементов(1,2,3,4,5,6,7,8,9) поидее должна быть последовательность 1,5,9 но прога выдала 1,2,5,8,1 и почему-то в квадрат не возводит. что делать?

uses crt;
var
n,i,j,p : integer;
a : array[1..100,1..100] of integer;
posled : array[1..100] of integer;

begin
clrscr;
writeln('vvedite colvo elementov');
readln(n);

for i:=1 to n do
for j:=1 to n do
begin
write('a[',i,']','[',j,'] - ');
readln(a[i,j]);
end;
clrscr;
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j],' ');
writeln;
end;

for i:=1 to n do
posled[i] := sqr(a[i,i]);

for j:=1 to n do
for i:=2 to n do
if posled[i] < posled[i-1] then
begin
p := posled[i];
posled[i] := posled[i-1];
posled[i-1] := p;
end;

writeln('novaya posledovatel`nost');
for i:=1 to n do
write(posled[i],' ');
readkey;
end.




VilAm НУ МЫ ВЫДАЕМ ППЦ))

[hardrace]

отлично-спасибо вам-всё работает
что бы я без этого форума делал-не знаю...