Question

Написать программу, которая позволяет ввести 12 значений. Далее программа выводит на экран два числа. В одно число нужно записать сумму чисел меньше 100, а в другое сумму чисел меньше 100. То есть при вводе программа должна определить какие значения ты вводишь и разбивает значения на 2 группы, меньше 100 и больше 100, а далее суммирует числа в каждой группе и выводит ответ.

Answer 1

program raf105;

var

 num,sum1,sum2: integer;

begin

 writeln('Вводите 12 чисел по очереди');

 for var i:=1 to 12 do

 begin

   readln(num);

   if num < 100 then sum1:= sum1 + num;

   if num > 100 then sum2:= sum2 + num;

 end;

 writeln('Сумма чисел меньше 100: ',sum1);

 writeln('Сумма чисел больше 100: ',sum2);

end.

PascalABC