Помогите решить 3 задачи в паскале на массивы

[St1fler92]

1)Найти все элементы массива целых чисел B(n),больше первого элемента и меньше пятого.Массив заполняется вводом чисел с клавиатуры.
2)Найдите произведение наибольшего и наименьшего элементов массива вещественных чисел Z(n). Массив заполняется случайным образом.
3)Заполните массив сорока числами по правилу : F(i):=B(в степени 3)+4*b*I

[Sazary]

Чем помочь? Что непонятно?
Где наработки?

[St1fler92]

С нашим учителем не возможно даже это решить ,так что помочь всем желательно)

[IT-man]

3

readln(b);
for i:=1 to 40 do
a[i]:=b*b*b+4*b*I;
for i:=1 to 40 do
write(a[i]:6:,'    ');

2

randomize;
readln(n);
min:=9999;
max=-9999;
for i:=1 to n do begin
z[i]:=random(50);
z[i]:=z[i]*0.1;
if z[i]>max then max:=z[i];
if z[i]<min then min:=z[i];
end;
writeln(min*max);

1

readln(n);
for i :=1 to n do
readln(b[i]);
k:=0;
for i:=1 to n do begin
if (b[i]>b[1]) and (b[i]<b[5]) then 
begin
inc(k)
a[k]:=i;
end;
end;
writeln(' № elementov po usloviyu')
for i:=1 to k do
write(a[i]:6);

объявить переменные на твоей совести

[Sazary]

Сообщение от St1fler92

С нашим учителем не возможно даже это решить

Естественно, виноват учитель. Только самообучение никто не отменял.

Вторая. Остальное допишете.

max := Z[1];
min := Z[1];
for i:=1 to n do
 begin
 if Z[i]>max then max := Z[i];
 if Z[i]<min then min := Z[i];
 end;
writeln(max * min);