БООотТ НааАиИ тТелллеЕЕггрРРм - @united brai nly (без пробелов) - id2087749120210127 от ImHomme 27.01.2021 07:22

Question

Информатика: БООотТ НааАиИ тТелллеЕЕггрРРм - @united brai nly (без пробелов)

ImHomme · Accepted Answer

// PascalABC.NET 3.0, сборка 1156 от 30.01.2016 function Avg(a:array[,] of integer):real; begin   var s:=0; var k:=0;   foreach var e:integer in a do     if e 0 then begin s+=e; Inc(k) end;   if k 0 then Result:=s/k else Result:=1e-100; end; begin   var A:=MatrixRandom(4,4,-50,50); Writeln(A);   Writeln( Среднее арифметическое положительных равно ,Avg(A):0:3);   var B:=MatrixRandom(5,5,-30,30); Writeln(B);   Writeln( Среднее арифметическое положительных равно ,Avg(B):0:3);   var C:=MatrixRandom(4,5,-25,38);...

БООотТ НааАиИ тТелллеЕЕггрРРм - @united brai nly (без пробелов)

MOGZ ответил