Pascal алгоритм вроди правильный, а прога не пашет

[tipson]

Здасити всем, нужно найти отношение сумм верхних и нижних элементов побочной диагонали.
написал алгоритм, написал прогу...
прога не пашет
мб покажете вашу версию программы по данному алгоритму, или может и алгоритм не правильный ???
СОС карочи.

[tipson]

программа доходит до ввода массива:
введите n
я ввожу n и вместо заполнения массива прога сразу выдает окончательный ответ

[puporev]

Алгоритм конечно неправильный.
1. Ввод массива

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

2. Вывод массива на экран.

writeln('Massiv:');
for i:=1 to n do
  begin
   for j:=1 to n do
   write(a[i,j]:5:1);//для вещественных, для целых  (write(a[i,j]:5)
  end.

3. Вычисления
4. вывод результата.

write('Otnoshenie summ=',sumup/sumdn:0:2);
readln
end.

[tipson]

стой стой,
мне ненада выводить на экран весь массив,
а нада найти отношение сумм элементов лежащих выше и ниже побочной диагонали матрицы

[tipson]

puporev ввел массив по твоему все пашет ))))
хз че я там не так написал
но терь все пашет биг спс
с меня плюсег

[puporev]

мне ненада выводить на экран весь массив,

А как ты проверишь, правильно посчитал, или нет?

[tipson]

а это пусть преподы считают
я сделал, то что написано в условии

[tipson]

вот мой код

program otnoshenie;
uses crt;
var a:array[1..20,1..20] of integer;
    i,j : byte;
    sumup,sumdn,n : integer;
begin
clrscr;
sumup:=0;
sumdn:=0;
writeln('Enter n');
readln(n);
for i:=1 to n do
for j:=1 to n do
begin
write('a[',i,',',j,']=');
readln(a[i,j]);
end;
sumup:=0;
sumdn:=0;
for i:=1 to n do
for j:=(n-i+2) to n do
begin
sumdn:= sumdn+a[i,j];
end;
for i:=1 to (n-1) do
for j:=1 to (n-i) do
begin
sumup:=sumup+a[i,j];
end;
write('otnoshenie ravno=',sumup/sumdn:2:2);
readln;
end.

токо вот препод сказал что надо употребить процедуры, покажите плс пример мб сам даже разберусь

[puporev]

а это пусть преподы считают
я сделал, то что написано в условии

Учитывая Ваше отношение к подсказкам, сами их и ищите.

[tipson]

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

Учитывая Ваше отношение к подсказкам, сами их и ищите.

ооооо
ты че епту???