Определите какие высказывания являются общими, какие - высказываниями о существовании, а какие - ни теми, ни другими. для всехз общих высказываний постройте отрицание. а) все рыбы умеют плавать б) у этого мотоцикла 4 колеса в) петя дружит с мащей г) брат всегда старше дяди д)любая медаль имеет 2 стороны е) некоторые полицейские - мальчики ж) в субботу шел сильный дождь з) есть кошки, которые любят мышек и)нет попугаев, которые не умеют петь к) велосипед не может иметь квадратные колеса л) минутная стрелка всегда движется быстрее секундной
var a, S1, S2: Integer;
i, Q1, Q2: Byte;
begin
S1 := 0; Q1 := 0;
S2 := 0; Q2 := 0;
writeln('Введите ', N, ' чисел:');
for i := 1 to N do
begin
read(a);
if a < 0 then
begin
S1 := S1 + a;
inc(Q1)
end;
if a > 0 then
begin
S2 := S2 + a;
inc(Q2)
end;
end;
writeln;
if Q1 > 0 then
begin
writeln('Сумма отрицательных чисел: ', S1);
writeln('Количество отрицательных: ', Q1)
end
else
writeln('Отрицательных нет');
if Q2 > 0 then
begin
writeln('Сумма положительных чисел: ', S2);
writeln('Количество положительных: ', Q2)
end
else
writeln('Положительных нет')
end.