1. Дан массив A(N) (N<=50 вводится). Для всех А(I) вычислить значения 5*А(i)3+2*A(i)2+7.

2. Найти среднее тех элементов массива A(N) (N<=50 вводится) , модуль которых меньше заданного числа В, но больше заданного числа С.

3. Дан целочисленный массив А(N) (N<=50 вводится).Найти элемент А(I), модуль значения которого наиболее близок к заданному числу В.

 uses crt;
var n,m,i,j,k:integer;    
a:array[1..1000] of integer;
begin
repeat
writeln('Введите 2 натуральнвх числа n<m<1000:');
read(n,m);
until
(n>0)and(n<m)and(m<1000);
writeln('Начальный ряд:');
k:=0;
for i:=n to m do
 begin  
 inc(k);   a[k]:=i;  
write(a[i]:4);  
end;
writeln;
while k>=2 do
 begin  
 i:=1;  
while i<=k do  
  begin     for j:=i to k-1 do    
 a[j]:=a[j+1];    
 k:=k-1;
  i:=i+1;    
end;  
 i:=2;  
while i<=k do  
  begin     f
or j:=i to k-1 do    
 a[j]:=a[j+1];    
k:=k-1;    
i:=i+1;    
end;
 end;
write(a[k]);
end.

1.

var
t,vk,vt: real;

begin
writeln('Введите скорость катера (vk) и скорость течения реки (vt) в км/ч: ');
read(vk,vt);
writeln('Введите время (t) в часах: ');
read(t);
writeln('Катер за ',t,'ч. пройдет ',t*(vk+vt),' км');
end.

2.

var
n,x: real;

begin
writeln('Введите кол-во кактусов: ');
read(x);
writeln('Сколько кактусов было побрито? ');
read(n);
if (x - n) < x/2 then writeln('Гладких кактусов больше.');
if (x - n) = x/2 then writeln('Небритых и гладких поровну.');
if (x - n) > x/2 then writeln('Небритых кактусов больше.');
end.