Написать программу в паскале(тема циклов) и блок схему : для различных вводимых с клавиатуры целых чисел - id522181720230601 от SaintRomik 01.06.2023 01:18

Question

Информатика: Написать программу в паскале(тема циклов) и блок схему : для различных вводимых с клавиатуры целых чисел найдите сумму положительных нечетных.

SaintRomik · 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);...

Написать программу в паскале(тема циклов) и блок схему : для различных вводимых с клавиатуры целых чисел найдите сумму положительных нечетных.

MOGZ ответил