// PascalABC.NET 3.0, сборка 1088 const n=9; m=7; var a:array[1..n,1..m] of integer; b:array[1..n] of boolean; i,j,k:integer; begin Randomize; Writeln('*** Исходный массив ***'); for i:=1 to n do begin k:=0; for j:=1 to m do begin a[i,j]:=Random(225)-112; Write(a[i,j]:5); if a[i,j]<0 Then Inc(k) end; Writeln; b[i]:=k>3 end; Writeln('*** Строки, содержащие больше 3 отрицательных элементов ***'); for i:=1 to n do if b[i] then Write(i,' '); Writeln end.
9
Объяснение:
ROW(C2) - эта функция определяющая порядковый номер ячейки C2 по строкам, то есть 2 (вторая строка)
COLUMN(B3) - эта функция определяющая порядковый номер ячейки В3 по столбцам, то есть 2 (В второй столбец)
SQRT(B3) - эта функция определяющая квадратный корень числа из ячейки В3=4, то есть SQRT(4)=√4=2
AVERAGE(B1; SQRT(B3)) - эта функция вычисляющая среднее арифметическое чисел B1; SQRT(B3), которое математически равно
(B1 + SQRT(B3))/2=(5+2)/2=7/2=3,5
Тогда
=ROW(C2)+AVERAGE(B1;SQRT(B3))*COLUMN(B3) = 2+3,5*2=2+7=9