Найти сумму элементов из заштрихованной области массива

lez

Помогите пожалуйста с задачей!var A:array [1..5,1..5] of real; s:real; Найти s-сумму элементов из заштрихованной области массива А(там где стоят +)+++++ -++++- - - + - - -++++- +++++
1 ответ

lez

uses crt;
var a: array [1..5,1..5] of real;
    s: real;
    i,j: byte;
begin
s:=0;
writeln('Дана матрица');
for i:=1 to 5 do
    begin
    for j:=1 to 5 do
        begin
        a[i,j]:=20*random-10;
        write(a[i,j]:6:1);
        if ((i<=j) and (i+j<=6)) or
           ((i>=j) and (i+j>=6)) then
        s:=s+a[i,j];
        end;
    writeln;
    end;
writeln('Сумма =',s:0:1);
end.