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

Question

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

Comments

Во первых, за пять балов мало кто решать будет, во вторых... Даже читать эту безобразную кучу текста не охото... Можешь даже не следить, врятли кто-либо решит.

---

а ты можэеш решить если я повышу баллы

---

Я это даже читать не хочу. Я об этом и говорю. А если бы задания были интересными то и бесплатно бы решил.

Answer 1

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.

Comments

Проверь программы, могут быть не отлажены

---

ага

---

Var
Min,n:real;
Begin
Read(n);
If n=0 then writeln('error') else begin
Min:=n;
While n<>0 do begin
If nWriteln(min);
End; end.

---

10 и 9

---

Var
I,n,c,f:integer;
Begin
For I:=1 to 7 do begin
Read(n);
If n mon 2=0 then c:=c+1 else f=f+1;
End;
If c>f then writeln('четные') else writeln('нечетные');
End.

---

Третия

---

Var
Max,min,n:real;
I:integer;
Begin
Read(n); min:=n; max:=n;
For I:1 to 8 do begin
Read(n);
If nIf n>max then max:=n;
End;
Writeln(max-min);
End.

---

Четвертая

---

если если потом понадобится обращайся, лучше днем, вечером я занят

---

спасибо хорошо