1. Составить программу вычисления S=1/2+1/4+1/8+…+1/128.
2. Задан массив. Составить программу которая вводит с клавиатуры 10 чисел и выводит их в обратном порядке.
ТУРБО ПАСКАЛЬ, ПОЖАЛУЙСТА

Проверил у себя обе программы - всё работает, у Вас тоже должно работать. Задание 1).Program Summ_S;varI, N, DENOMINATOR: integer;S, SUMM: real;beginN:=1;for I:=1 to 999 do beginif DENOMINATOR=128 then beginwrite('S = '+SUMM);break;end;DENOMINATOR:=N*2;S:=1/DENOMINATOR; // 1/1*2, 1/2*2, 1/4*2...N:=DENOMINATOR;SUMM:=SUMM+S;end;end.Задание 2).Program Massive;varnum_1, num_2, num_3, num_4, num_5,num_6, num_7, num_8, num_9, num_10,number: longint;i: integer;beginfor i:=1 to 10 do beginwrite('Введите число: ');readln(number);case i of1:num_1:=number;2:num_2:=number;3:num_3:=number;4:num_4:=number;5:num_5:=number;6:num_6:=number;7:num_7:=number;8:num_8:=number;9:num_9:=number;10:num_10:=number;end;end;writeln('Введенные числа в обратном порядке: '+num_10,num_9,num_8,num_7,num_6,num_5,num_4,num_3,num_2,num_1);end.P.S Можно и по другому сделать, но я уже паскаль особо не помню.Надеюсь помог, удачи :)