СОСТАВИТЬ ПРОГРАММУ В С++ В норме
ударный объем сердца– Vудар =6*10^-5
м3
, среднее артериальное давление P= 13000 Па,
плотность крови D = 1.05*10^3 кг/м3 ,скорость потока крови С = 0.5 м/с. Если, при
заданных параметров результат будет равен А= 0.94545 жоуль, программа составлена.
uses Crt;
const n=50;
type Vec=array [1..n] of integer;
var A: Vec;
i, Sum, Col: integer;
begin
ClrScr;
Randomize;
Sum:=0;
Col:=0;
for i:=1 to n do
begin
A[i]:=10+random(40);
Write(A[i]: 4);
if (i mod 10 =0 ) then WriteLn;
if (A[i] mod 7 = 1) or (A[i] mod 7 = 2) or (A[i] mod 7 = 5 ) then
begin
Sum:=Sum+A[i];
Col:=Col+1;
end;
end;
WriteLn;
WriteLn (' Sum = ', Sum);
WriteLn (' Col = ', Col);
ReadLn;
end.