1. из элементов массива d сформировали массив а той же размерности по правилу: если номер четный ,то аi=5+di^2 если не четный , то ai=di/i 2. определить , сколько пар соседних элементов сумма которых равна заданному числу х ( х вводиться с клавиатуры)

Вобщем, т.к. ты мне не ответил - лови две программы: 1) program dasf; var b,c,i: integer;     a: array[1..100] of real;     d: array[1..100] of real; begin writeln('введите размерность массива d'); readln(b); for i: =1 to b do  begin    writeln('введите элемент массива №',i);     readln(d[i]);   end; writeln('массив а: '); for i: =1 to b do  begin    if i mod 2=1 then a[i]: =5+(d[i]*d[i])      else a[i]: =d[i]/i;     writeln(a[i]);   end; end. 2) program fgsadg; var i,b,x,y,z,k,t: integer; begin  writeln('введите сколько чисел будет использоваться: ');   readln(b);   writeln('введите х: ');   readln(x);   writeln('введите число №',1);   readln(z);   k: =0;   for i: =2 to b do    begin      writeln('введите число №',i);       readln(y);       if z+y=x then k: =k+1;       z: =y;     end;   writeln(k);   end.  если что-то не будет работать - отпиши, мог кое-что удалить случайно при переносе.               

Объяснение:

видимо они плохо учились если даже сами не могут это решить