СРОЧНОкак составить программку, которая подсчитывает сумму отрицательных чисел (S) и

СРОЧНО
как составить программку, которая подсчитывает сумму отрицательных чисел (S) и творение положительных

Задать свой вопрос
1 ответ
const   N = 5;  
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 lt; 0 then
begin      
S1 := S1 + a;      
inc(Q1)    
end;    
if a gt; 0 then
begin      
S2 := S2 + a;      
inc(Q2)    
end;  
end;  
writeln;  
if Q1 gt; 0 then
begin    
writeln('Сумма отрицательных чисел: ', S1);    
writeln('Количество отрицательных: ', Q1)  
end  
else
writeln('Отрицательных нет');  
if Q2 gt; 0 then
begin    
writeln('Сумма положительных чисел: ', S2);    
writeln('Количество положительных: ', Q2)  
end  
else
writeln('Положительных нет')
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт