Что не так? (сравнить что больше сумма положительных или произведение отрицательных)
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.
• электронная почта (E-mail), обеспечивающая возможность обмена сообщениями одного человека с одним или несколькими абонентами;
• сервис FTP – система файловых архивов, обеспечивающая хранение и пересылку файлов различных типов;
• World Wide Web (WWW) – гипертекстовая (гипермедиа) система, предназначенная для интеграции различных сетевых ресурсов в единое информационное сервис DNS, или система доменных имен, обеспечивающий возможность использования для адресации узлов сети мнемонических имен вместо числовых адресов;
• сервис IRC, предназначенный для поддержки текстового общения в реальном времени (chat); и др.
это основное если что то есть еще я добавлю
Одним из самых обоснованных расчета идеального веса считается формула Брока. Она учитывает соотношение веса, роста и возраста человека. С возрастом вес женщины и мужчины должен постепенно увеличиваться – это нормальный физиологический процесс. И килограммы, которые некоторые могут считать "лишними", на самом деле таковыми могут и не являться. Формула Брока для не достигших сорокалетия равна "рост (в см) - 110", после сорока лет – "рост (в см) - 100". При этом хрупким худощавым людям – астеникам – из результата нужно вычесть 10%, а обладатели массивного телосложения – гиперстеники – должны 10% к нему прибавить.
Формула Брока для расчета идеального веса с учетом возраста:
до 40 лет (кг) = рост (см) – 110
после 40 лет (кг) = рост (см) – 100
После этого астеники вычитают 10%, а гиперстеники прибавляют 10%.
Пример расчета:
Возраст – 30 лет
Рост – 168 см
Идеальный вес = 168 – 110 = 58 (кг)
как-то так