программа на паскале

[Мариетта]

Подскажите, пожалуйста, правильно ли я составила программу для задачи:"Для заданной квадратной матрицы сформировать одномерный массив из элементов вспомогательной диагонали.". program primer;
uses crt;
var a:array[1..100, 1..100] of integer;
s:array[1..100] of integer;
i,j,n:integer;
begin
clrscr;
writeln;
writeln('vvedite n');
readln(n);
for i:=1 to n do
begin
for j:=1 to n do
begin
writeln ('vvesti element ',i,j);
readln(a [i,j]);
end;
end;
for i:=1 to n do
begin
for j:=1 to n do
if j=n+1-i then s[i]:=a[i,j];
end;
for i:=1 to n do
write(s[i]);
readln;
end. Помогите, пожалуйста, составить к ней алгоритм. СПАСИБО!!!

[McFrey]

я бы добавил один маленький штрих)
write(s[i]:3);
а то у тебя просто 3 числа выводит "слипшиеся"...вот,
а схема алгоритма есть программа FCEditor

[Hacker19_90]

for i:=1 to n do
 begin
 for j:=1 to n do
 if j=n+1-i then s[i]:=a[i,j];
 end;

матрица квадратная
зачем 2 цикла?
EASYYYYY

for i := n downto 1 do
    s[i] := a[i, n-i+1];

[Мариетта]

Спасибо за программу

[Mad_Cat]

блок - схема