begin Write('Введите два числа через пробел '); Readln(a, b); Writeln('Среднее арифметическое кубов равно ', (a * sqr(a) + b * sqr(b)) / 2); Writeln('Среднее геометрическое модулей равно ', sqrt(abs(a * b))) end.
Тестовое решение: Введите два числа через пробел -13.5 17.43 Среднее арифметическое кубов равно 1417.4722035 Среднее геометрическое модулей равно 15.3396544941534
Замечание: вместо произведения модулей при вычислении среднего геометрического достаточно взять модуль произведения - в любом случае получится требуемое положительное число.
//PascalABC.NET 3.1 сборка 1239 const n = 10; m = 10;
var i, j: integer; a, b: array[1..n, 1..m] of integer; f: boolean;
begin for i := 1 to n do begin for j := 1 to m do begin a[i, j] := random(50); write(a[i, j]:3, ' '); end; writeln; end; writeln;
for i := 1 to n do begin f := false; for j := 1 to m do begin if not f and (a[i, j] mod 2 = 1) then begin a[i, j] := 2 * a[i, j]; f := true; end; write(a[i, j]:3, ' '); end; writeln; end; end.
Объяснение:
сможешь всё списать это из моего компьютера