[Turbo Pascal]: в сформированной случайным образом матрице 4x4 найти сумму элементов главной диагонали, а также произведение элементов побочной

[temar]

Помогите пожалуйста с написанием программы в Turbo Pascal:
Сформируйте матрицу С{4,4} случайным образом и выведите ее на экран. Найдите сумму элементов главной диагонали матрицы и произведение элементов побочной диагонали матрицы.

[Alar]

поиск по форуму в правом верхнем углу дает сотни решений.

по запросу например "сумму элементов главной диагонали"

http://www.programmersforum.ru/showt...EE%ED%E0%EB%E8

[newerow1989]

var c:array[1..4,1..4] of integer;
    i,j:integer;
    sum,pr:int64;
begin
   Randomize;
   For i:=1 to 4 do
   begin
      For j:=1 to 4 do
      begin
         c[i,j]:=1+Random(10);
         Write(c[i,j]:2,'  ');
      end;
      Writeln;
   end;
   Writeln;
   sum:=0;
   pr:=1;
   For i:=1 to 4 do
   begin
      sum:=sum+c[i,i];
      pr:=pr*c[i,5-i];
   end;
   Writeln(sum);
   Writeln(pr);
   Readln;
end.