В массиве А (15, 10) действительных чисел зайти сумму 3 и 7 строк. Определить какая из них больше.

Uses Crt;

Const

N = 15;

M = 10;

Var

A:array[1 ... N, 1 ... M] of real;

i, j:integer;

S3, S7:real;

Begin

Randomize;

ClrScr;

WriteLn ('Исходный массив:') ;

For i: = 1 to N do

Begin

For j: = 1 to M do

Begin

A[i, j]:=random*13;

Write (A[i, j]:6:3,' ')

End;

WriteLn

End;

S3:=0;

S7:=0;

For j: = 1 to M do

Begin

S3:=S3+A[3, j];

S7:=S7+A[7, j];

End;

WriteLn ('S3 = ', S3:0:3) ;

WriteLn ('S7 = ', S7:0:3) ;

if S3 > S7 then WriteLn ('S3 > S7')

else if S3 < S7 then WriteLn ('S3 < S7')

else WriteLn ('S3 = S7') ;

ReadLn

End.