98

Помогите Решить 4 любые задачи: 1) С клавиатуры вводится…

wlad5 18 марта 2023

Помогите Решить 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. Сколько всего штрафного времени заработано командами А и В отдельно, а также определить общее штрафное время.

категория: информатика

73

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.

пользователи выбрали этот ответ лучшим
Знаете другой ответ?

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...