1. цикл for на языке pascal abc a. вывести на экран числа от 0 до 9 b. вывести на экран числа от 0 до 10 c. вывести на экран числа 1, 3, 5, 7, …21 d. вывести на экран числа 2, 4, 6, 8, …22 e. вывести на экран числа 10, 9, 8, … 1 f. вывести на экран числа 100, 90, 80, … 10 g. найти сумму чисел от 1 до 10 h. найти произведение чисел от 1 до 5 i. найти сумму модулей от -5 до 5 j. вывести буквы от ‘a’ до ‘z’ (использование for для работы с перечисляемыми нечисловыми типами)

Program taskc; var i, il: integer; begin for i : = 1 to 21 do if i mod 2 = 1 then write(i, ' '); i : = i + 1; end; readln; end. program taskd; var i: integer; begin for i : = 1 to 11 do write(i * 2, ' '); end; readln; end. program taske; var i: integer; begin for i : = 10 downto 1 do write(i, ' '); readln; end. program taskf; var i: integer; beginfor i : = 10 downto 1 dobeginwrite(i * 10, ' '); end; readln; end.program taskg; var i, sum: integer; beginfor i : = 1 to 10 dosum : = sum + i; writeln(sum); readln; end.program taskh; var i, product: integer; beginproduct : = 1; for i : = 1 to 5 doproduct : = product * i; writeln(product); readln; end.program taski; var i, sum: integer; beginfor i : = -5 to 5 dosum : = sum + abs(i); writeln(sum); readln; end.program taskj; var c: char; beginfor c : = 'a' to 'z' dowrite(c, ' '); readln; end.

Var i,x,k,s: integer; function sum(x: integer): integer; var     t: string;     i: integer; begin s: =0; t: =inttostr(x); for i: =1 to length(t) do  s: =s+strtoint(t[i]); result: =s end; function kol(x: integer): integer; var t: string; begin t: =inttostr(x); result: =length(t) end; begin for i: =1 to 5 do     begin     write('введите число ',i,': ');       readln(x);       k: =kol(x);       s: =sum(x);       writeln('количество цифр ',k,'; сумма цифр ',s)     end end.

Для этого нужно в цикле пробежаться по элементам mass[i] и элементам mass[30 - i], тоесть чтобы не запоминать суму элементов достаточно её сравнить с сумой каких либо других пар  (в нашом случае начало масива мы сравниваем с концом). далее создадим переменную, по каторой мы будем определять индекс элемента сума которого из соседним элементом являлась самой большой. просто для проверки запускается 2 цикла в которых будет индекс инкрементироваться, не важно в конце или в начале этот элемент. в цикле где есть этот элемент делаем проверку, найшли ли мы нужный элемент, если да, то записуем значение индекса в переменную, далее записуем проверку, на равенство индекса и переменной, что не даст нам изменить значение нужного индекса до тех пор, пока мы не найдем нужный,  а индекс декрементируем, он все равно будет не изменен, по скольку в начале цыкла мы его увеличиваем на 1. примерно все!   c++ . . int main {  int mass[30]; int i,counter, j; for(i = 0,i< 30; i++) {cout< < "your mass:   "< < mass[i] = rand%100< < endl;   // делаем заполнение масива случайными числами  от 0 до 100    } //делаем собственно проверку for(i=0; i< 30; i++) {           for(j=0; j< 30; j++)           {           if  (mass[i]+mass[i+1]< mass[30-j]+mass[30-j-1]){             counter=j;               j--;             }               else {counter = i;                 i--;           } } cout< < "your max element :   "< < mass[counter]; } getch(); return 0;