Перевести на пайтон: program gre; uses math; var - вопрос №207886360 от goooooooooj 19.12.2020 22:42

Question

Информатика: Перевести на пайтон: program gre; uses math; var x,x0,f:real; N,k:integer; begin writeln( Введите значения x ); readln(x); x0:=-3.5; N:=trunc((6-x0)/(0.7)); for k:=0 to n do begin x:=x0+0.7*k; f:=sqrt(abs(power(3,x)*(cos(sqr(x))+sin(x; if f abs(k*sin(x)) then write ( F( , X:2:2, ) = ,f:2:2, - превышает ) else write ( F( , X:2:2, ) = ,f:2:2, - не превышает ); writeln(); end; end.

goooooooooj · Answer

var a: array[1..999] of integer;
n, sp, so, kp, ko: integer;
begin
read(n);
for var i := 1 to n do begin
a[i] := random(-9, 9);
write(a[i], ' ');
if a[i] > 0 then begin
sp += a[i];
kp += 1;
end;
if a[i] < 0 then begin
so += a[i];
ko += 1;
end;
end;
writeln;
writeln('Среднее арифметическое положительных чисел = ', sp/kp);
writeln('Среднее арифметическое отрицательных чисел = ', so/ko);
end.