Ответы на вопрос:
var i,a,sp,ko2,sp2,kp2: integer;
p: biginteger;
begin
p: =1;
for i: = 1 to 100 do
begin
a: =random(199)-99;
write (a,' ');
if a > 0 then sp: =sp+a;
if (a < 0) and (a mod 2 = 0) then ko2: =ko2+1;
if a > 10 then p: =p*a;
if (a > 0) and (a mod 2 = 0) then
begin
sp2: =sp2+a;
kp2: =kp2+1
end
end;
writeln;
writeln ('сумма положительных чисел равна ',sp);
writeln ('кол-во отрицательных чётных чисел равно ',ko2);
writeln ('произведение чисел больше 10 равно ',p);
writeln ('среднее арифметическое положительных чётных чисел равнo ',sp2/kp2: 0: 3);
end.
Популярно: Информатика
-
zaraza899922.08.2022 04:53
-
золотесерце17.09.2021 23:36
-
melnikovao19717.01.2022 00:59
-
GoldenRose9927.02.2023 08:42
-
Nastia2k04.08.2021 05:52
-
литературщик21.12.2022 12:47
-
kaltaeva9805.11.2021 15:29
-
Євпак03.03.2020 09:25
-
oksana200000111.09.2022 20:44
-
snoopelol520.05.2020 13:10