Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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. 
Если что-то не будет работать - отпиши, мог кое-что удалить случайно при переносе.