1. Из элементов массива D сформировали массив А той же размерности по правилу: если номер четный ,то Аi=5+Di^2 если не четный , то Ai=Di/i
2. Определить , сколько пар соседних элементов сумма которых равна заданному числу Х ( Х вводиться с клавиатуры)

Program dasf;var b,c,i,x,k: integer; A: Array[1..100] of real; D: Array[1..100] of real; z: real;beginWriteln('Введите размерность массива 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;Writeln('Введите число х');readln(x);z:=A[1];k:=0;For i:=2 to b do begin If A[i]+z=x t

не влезло

в лс сейчас отправить попробую

В общем, т.к. ты мне не ответил - лови две программы:1)Program dasf;var b,c,i: integer;    A: Array[1..100] of real;    D: Array[1..100] of real;beginWriteln('Введите размерность массива 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.  Если что-то не будет работать - отпиши, мог кое-что удалить случайно при переносе.