В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
yannappp1
yannappp1
08.02.2020 05:45 •  Информатика

Решить 4 любые : 1)с клавиатуры вводится последовательность чисел, оканчивающаяся 0. сколько элементов последовательности превышает число 100? 2)вводится последовательность из 10 вещественных чисел. вычислить сумму элементов, не превышающих числа а. 3)с клавиатуры вводится последовательность из 7 целых чисел. определить каких чисел больше: четных или нечетных. 4)с клавиатуры вводится последовательность из 9 чисел. найти разность между макимальным и минимальным элементами. 5)с клавиатуры вводится последовательность чисел, оканчивающаяся 0. найти порядковый номер отрицательного элемента, если считать элементы справа. в случае нескольких отрицательных элементов вывести номер последнего из них (т.е. самого правого). 6)с клавиатуры вводится последовательность чисел, оканчивающаяся 0. найти порядковый номер первого двузначного элемента последовательности, считая элементы в прямом порядке. 7)с клавиатуры вводится последовательность положительных чисел, оканчивающаяся 0. найти сумму двузначных элементов последовательности. 8)с клавиатуры вводится последовательность чисел, оканчивающаяся 0. найти произведение отрицательных элементов последовательности. 9)с клавиатуры вводится последовательность чисел, оканчивающаяся 0. найти в ней минимальный элемент. 10)с клавиатуры вводятся числа 2, 5 или 10, означающие удаления игроков на соответствующее кол-во минут. условно положительные значения означают удаления в команде а, а отрицательные - в команде в. для завершения ввода данных используется 0. сколько всего штрафного времени заработано а и в отдельно, а также определить общее штрафное время.

Показать ответ
Ответ:
Васимаримарса
Васимаримарса
26.06.2020 10:51
Var A,b,N:integer; Begin Read(n); If n=0 then writeln('штрафное время не заработано') else While n<>0 do If n>0 then a:=a+n else b:=b+n;  Writeln('a-',a,'b-',b,'общее-',a+b); End.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота