Что не так? (сравнить что больше сумма положительных или произведение отрицательных)
program ee;
var n,i,kolp,kolo: integer;
sum,po,a: real;
begin
writeln ('сколько чисел вы будете вводить? ','');
readln (n);
sum: =0;
po: =1;
kolp: =0;
kolo: =0;
for i: =1 to n do
begin
writeln ('введите число,нажмите enter');
readln(a);
if a< 0 then begin inc(kolo);
po: =po*a; end;
if a> 0 then begin inc(kolp);
sum: =sum+a; end;
if a=0 then continue;
end;
if (sum=1) and (kolo> =1) then writeln ('произведение отрицательных') else
if (sum=po) and (kolp> =1) and (kolo> =1) then writeln ('произведение отрицательных равно сумме положительных')else
if (kolp=0) and (kolo=0) then writeln ('кажется, что вы ввели все нули')else
if (kolp=0) or (kolo=0) and (sum=0) or (po=1) then writeln ('нельзя совершить подсчет,нужно ввести ак миниум 2 положительных и два отрицательных числа');
end.
252
440
Ответы на вопрос:
Популярно: Информатика
-
ghvcn30.06.2020 20:19
-
Djzhdujd11.01.2023 08:24
-
Marshall12323.01.2023 09:57
-
Superclassehdh05.03.2023 02:58
-
пимрорпр31.12.2021 07:32
-
djamilaalieva03.06.2022 20:26
-
Dimastopgaming17.01.2020 11:46
-
oksanka19980019.06.2023 00:31
-
sahrona0431.01.2022 12:42
-
MRSinn23.02.2021 02:05