Работа с одномерными массивами.
Составить на языке PASCAL программу обработки одномерного массива.

Установить, сколько элементов массива F(15) удовлетворяют следующему условию:
3<f<10,5.

ну и последняя задачка гений)

Лови)var  F: array [1..15] of real;  i, res: integer;begin  writeln('Enter F:');  for i := 1 to 15 do  begin    write('F[', i, '] = ');    readln(F[i]);  end;    res := 0;  for i := 1 to 15 do    if (F[i] > 3) and (F[i] < 10.5) then      res := res + 1;    writeln(res);end.