Дано N произвольных чисел отыскать сумму положительных чисел в одну смену
Дано N случайных чисел отыскать сумму положительных чисел в одну смену и сумму отрицательных чисел в другую. Пожалуйста помогите! Решать программку '' пока''. Заблаговременно спасибо
1 ответ
Диана Похитунова
Program example;
var plus, minus, n, a, i: integer;
begin
plus := 0;
minus := 0;
writeln('Введите кол-во чисел.');
readln(n) ;
for i := 1 to n do
begin
writeln('Введите число');
readln(a);
if a gt; 0 then plus := plus + a
else minus := minus + a;
end;
writeln(plus);
writeln(minus);
end.
var plus, minus, n, a, i: integer;
begin
plus := 0;
minus := 0;
writeln('Введите кол-во чисел.');
readln(n) ;
for i := 1 to n do
begin
writeln('Введите число');
readln(a);
if a gt; 0 then plus := plus + a
else minus := minus + a;
end;
writeln(plus);
writeln(minus);
end.
Даниил Ползунов
cgfcb,j
Эвелина
спасибо ,я если честно не знаю
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Облако тегов