Написать программу, которая позволяет ввести 12 значений. далее программа выводит на экран два числа. в одно число нужно записать сумму чисел меньше 100, а в другое сумму чисел меньше 100. то есть при вводе программа должна определить какие значения ты вводишь и разбивает значения на 2 группы, меньше 100 и больше 100, а далее суммирует числа в каждой группе и выводит ответ.
alex2071
2
08.09.2019 21:02
1
Другие вопросы по теме Информатика
zziimmbboo
21.11.2019 18:07
Destroyer0
15.12.2020 12:51
Gir9
15.12.2020 12:51
0HIMiK0
15.12.2020 12:51
Angelina27609
15.12.2020 12:50
MrFoxTv
15.12.2020 12:50
vlad31106
28.07.2019 20:40
cooldasha11042
14.05.2021 13:27
Популярные вопросы
- Выпишите предлоги из текста....
2 - Complete the sentences with (around through to or off) don t see me I m going to...
1 - 2. Площадь ромба равна 54, а периметр рава 36. Найдите высоту ромба 3. Диагональ...
1 - V. Создание собственного текста 4.1. Напишите изложение с обрамлением: передайте...
2 - Сделай правильные выводы о приготовлении растворов. Стеклянная посуда, требующая...
2 - Говарение Я И МОИ РОДИТЕЛИ напишите!...
1 - Упростите выражение: Напишите решение задач и формулу....
2 - 395 Составьте и запишите текст или предложения, используя данные словосочетания.Слуша..м...
3 - 7020-348:4×66966-612:6:39007-(600-130×4):108009-250+140:5×2по действиям3 класс...
1 - группа туристов отправилась в путешествие по россии. На карте отмечены буквами опорные...
3
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