Составить программу решения поставленной задачи по обработке двумерного массива (матрицы). По возможности, использовать подпрограммы.

1. Вычислить сумму и число положительных элементов матрицы A[N, N], находящихся над главной диагональю.

А какой текст???????????

Чтобы заработал этот код надо добавить первой строкой:
function G(n:integer):integer;forward;
Так как в функции F присутствует вызов функции G, которая описана далее в программе.


function G(n: integer): integer; forward;
function F(n: integer): integer;
begin
  if n > 2 then
    F := F(n - 1) + G(n - 2)
  else
    F := 1;
end;

function G(n: integer): integer;
begin
  if n > 2 then
    G := G(n - 1) + F(n - 2)
  else
    G := 1;
end;

begin
  writeln(F(7));
end.

Ответ: 13

1 символ = 8 бит
70*30*6 = 12600, то есть 1575 байт

Болт. .......,...........