Информатика Практика / 18

Program praktika18;
Uses CRT;
Const n=5;
Var a: Array [1..n,1..n] Of Integer;
i, g, v_min, v_max, s_c, s_n: Integer;
Begin
Randomize;
WriteLn('Задайте диапазон случайных чисел:');
Write('v_min = ');
ReadLn(v_min);
Write('v_max = ');
ReadLn(v_max);
For i:= 1 to n Do
Begin
For g:= 1 to n Do
Begin
a[i,g]:=Random(v_max-v_min+1)+v_min;
End;
End;
WriteLn;
WriteLn('Исходный массив:');
WriteLn;
For i:= 1 to n Do
Begin
For g:= 1 to n Do
Begin
Write(a[i,g]:5);
End;
WriteLn;
End;
s_n:=0;
s_c:=0;
For i:= 1 to n Do
Begin
For g:= 1 to n Do
Begin
If (i=g)
Then
Begin
If (a[i,g] mod 2 = 0)
Then s_c:=s_c+a[i,g];
End;
If (g=n-i+1)
Then
Begin
If ((a[i,g] mod 2 = 1) or (a[i,g] mod 2 = -1))
Then s_n:=s_n+a[i,g];
End;
End;
End;
WriteLn;
WriteLn('сумма чётных элементов на главной диагонали = ', s_c);
WriteLn;
WriteLn('сумма нечётных элементов на побочной диагонали = ', s_n);
ReadLn;
End.