Андрей
6 год назад
СРОЧНО
как составить программу, которая подсчитывает сумму отрицательных чисел (S) и произведение положительных
ОТВЕТЫ
Kaoszinen
Jul 22, 2019
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.
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.
225
