Написать программу, которая позволяет ввести 12 - вопрос №809531512 от boikov2o 17.11.2020 23:15

Question

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

boikov2o · Answer

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