Задачи для зачета Турбо паскаль, очень важно!!!

[Denis45]

1) Даны число A>0, числа x1,x2....
Необходимо вводить числа x1,x2.... , пока сумма модулей введенных чисел буде меньше A. Определить число введенных чисел.

2)Даны число n и векторы а=(а1,а2,....,аn) , b=(b1,b2,...,bn)
Найти координаты вектора с, равного сумме векторов a и b, если a1<b1, в противном случае равного разности векторов a и b. На экран выводить информацию о том, как получен вектор c.

3) Составить программу, которая данное слово запишет в обратном порядке.

Заранее спасибо!

[Stilet]

1) Даны число A>0, числа x1,x2....
Необходимо вводить числа x1,x2.... , пока сумма модулей введенных чисел буде меньше A. Определить число введенных чисел.

var a,s,x:double;i:integer;
begin
 a:=0; s:=0; i:=0; repeat readln(x); s:=s+abs(x); inc(i); until s<a; write(i); readln;
end.

3) Составить программу, которая данное слово запишет в обратном порядке.

var s:string; i:integer;
begin
 readln(s); for i:=Length(s) downto 1 do write(s[i]); readln;
end.

[Serge_Bliznykov]

until s<a;

в until задаётся условие ВЫХОДА из цикла.
Виталий, Вы уверены, что Вы хотели написать - ВЫХОДИТЬ из цикла, когда s<a ?!

[Stilet]

Ну не то что бы уверен, но решил что слово "пока" имеет именно это значение.
Предлагаю подождать автора.

[Serge_Bliznykov]

Виталий, ну зачем же ждать автора.
в задании сказано:
"Необходимо вводить числа x1,x2.... , пока сумма модулей введенных чисел буде меньше A. Определить число введенных чисел."

очевидно, что при любом достаточно большом числе A (ну, пускай будет 100 для пример), после того, как Вы введёте ЛЮБОЕ число (ноль, например), сумма станет равной нулю, s<A выполнится и цикл завершится. Вы уверены, что автор задачи предполагал именно это?!

[Stilet]

пока сумма модулей введенных чисел буде меньше A

Для меня означает "Пока сумма не станет меньше". И какгриццо - баста.
И потом что стоит автору если "нэтакэ" поменять знак с "меньше" на "больше"?

[Denis45]

1 и 3 задачи я сделал, помогите со 2 пожалуйста