Question

Помогите,очень прошу!!!

Answer 1

Задача №1 (( остальные по аналогии сделай ))
const n=3;var a:array[1..n,1..n] of integer; {Ввод массива N на N}    i, j, sum: integer; {Ввод переменных}begin  sum := 0;  begin  for i:= 1 to n do     for j:= 1 to n do    read(a[i,j])    end;    for i:= 1 to n do begin      for j:= 1 to n do            if a[i,j] > 0 then            sum:=sum + a[i,j]    end;    write('сумма = ', sum);end.