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.
Никакие. Доказываю: Попробуйте найти 2 целых числа от 1 до 99, которые в сумме составляют 100 и если инвертировать одно из них, получается второе число. Это невозможно, а максимально близкий результат - 90 ; 09