Помогите составить программу на PASCAL'е

[Neronix]

:атентион: Дана матрица размером 8*8. Найти главную диагональ, сумму 7-го столбца.

Заранее благодарен.

ЗЫ За мной незаржавеет - отблагодарю звездами.

[maskman]

Neronix
Вот набрасал за пару минут посмотри может подойдет.

program Matrix;
const
  n=8;
  m=8;
var
  A: array [1..8, 1..8] of integer;
  i, j: integer;
  temp: integer;

begin
  for i:= 1 to n do
    for j:= 1 to m do
      begin
        write ('a[',i,',',j,']=');
        readln(A[i,j]);
      end;
  temp:= 0;
  writeln ('Glavnaya diagonal: ');
  for i:=1 to n do
    for j:= 1 to m do
      begin
        if j=7 then temp:= temp + A[i,j];
        if i=j then write (A[i,j],' ');
      end;
  writeln;
  writeln ('Summa stolbca = ', temp);
  readln;
end.

[Neronix]

maskman Огромное спасибо! Как я и обещал с меня причитается - лови пятак! Еще раз спасибо!!!

[maskman]

Neronix
НЕ за что, я же говорю пару минут потратил.

[Neronix]

maskman
Мой друг любит повторять: "Каждая работа должна хорошо оплачиваться!"
Поэтому прими от меня звездочку и огромное спасибо!!!

[RaZEr]

А твой друг не любит повторять "Спасибо в карман не положишь"? ...

PS: Это я так шучу, если кто не понял ...

[maskman]

RaZEr предлагает денег стресать, я пишу проги он стресает бабки))))
хотя должно быть наоборот....

[RaZEr]

Я в математике не силен. А кодинг там ерундовый.

[maskman]

RaZEr
Значит будешь бабки трести. ))))

[vadian]

RaZEr
Какой-никакой кодинг, а человеку помог )

[RaZEr]

Я разве отрицаю ?

[helldomain]

Mda. Kak tam goworilos? Spasibo w krowat ne polojish. Gi.

[maskman]

helldomain
И сюда добрался.

[helldomain]

A na chto ti nadeyalsya ;-)))? Liubly ya twoi posti kommentirowat ;-))).