Помогите решить задачи

[muzhik65]

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

[хлебец]

помогите мне тож с задачкой на basic пожалуйста
В матрице сформировать одномерный массив элемент, которого есть просизведение элементов столбцов.

[Sazary]

Ну прямо стол заказов.

muzhik65, указывайте язык и показывайте свои наработки. А также прочитайте правила.

хлебец, прочитайте правила и не пишите в чужих темах.

[Mirk]

Вторая задача вроде такая:
Uses crt;
Const n=10;
Var Z:array[1..n]of real;
i:integer;
max,min,P:real;
Begin
Clrscr;
Randomize;
For i:=1 to n do begin
Z[i]:=random(100);
Read(Z[i]);
end;
max:=0;
For i:=1 to n do If max<Z[i] then max:=Z[i];
min:=max;
For i:=1 to n do If min>Z[i] then min:=Z[i];
P:=min*max;
Writeln('Proisvedenie =',P:0:0);
Readln;
end.

[хлебец]

вот то что смог сделать дальше незнаю
cls
randomize timer
let s=1
dim a(5,5),z(5)
for i=1 to 5
for j=1 to 5
let a(j,i)=int(rnd*100)

print a(i,j)
next i
next j
for j=1 ro 5
let s=s*a(j)
next j
let z(j)=s
print z(j)
end
помогите пожалуйста

[Sazary]

хлебец
Вообще, использование оператора LET не рекомендуется.
Зачем вам какая-то s - непонятно.

CLS
RANDOMIZE TIMER
DIM a(5, 5) AS INTEGER
DIM z(5)  AS LONG

FOR i = 1 TO 5
 FOR j = 1 TO 5
  a(i, j) = INT(RND * 12)
  PRINT USING "####"; a(i, j);
 NEXT j
PRINT
NEXT i

PRINT
PRINT
FOR j = 1 TO 5
 b(j) = 1
 FOR i = 1 TO 5
  b(j) = b(j) * a(i, j)
 NEXT i
 PRINT b(j); "  ";
NEXT j
END

[muzhik65]

в паскале пишет неизвестный индентифекатор Clrscr

[MaTBeu]

Все, тема закрыта. Остальные ответы ищите сами.