Помогите решить задачи по turbo pascal. 1) Найти сумму элементов массива целых чисел в количестве 20 меньше данного числа 2. 2) Найти все элементы массива целых чисел в количестве 20 удовлетворяющие условиям остаток от деления на 5 равен 3. 3) Найти индексы элементов массива вещественных чисел, отрезки которых принадлежат отрезу A B. 4) Выдать на экран элементы массива целых чисел в количестве 20, которые больше среднего арифметического элемента массива. Буду очень благодарен.

1) Немного не понял фразу "меньше данного числа 2". Если найти сумму всех элементов, которые меньше двух в массиве размером 20 элементов, то это

var s, i:longint;

m:array[1 ... 100] of integer;

begin

for i:=1 to 20 do

read (m[i]) ;

s:=0;

for i:=1 to 20 do

if m[i]<2 then s:=s+m[i];

writeln (s) ;

end.

2)

var i:longint;

m:array[1 ... 100] of integer;

begin

for i:=1 to 20 do

read (m[i]) ;

for i:=1 to 20 do

if (m[i] mod 5=3) then writeln (m[i]) ;

end.

3) var a, b, i:longint;

m:array[1 ... 100] of real;

begin

read (a) ;

read (b) ;

for i:=1 to 20 do

read (m[i]) ;

for i:=1 to 20 do

if (m[i]>=a) and (m[i]<=b) then writeln (i) ;

end.

4) var

o, s, i:longint;

m:array[1 ... 100] of integer;

begin

for i:=1 to 20 do

begin

read (m[i]) ;

s:=s+m[i];

end;

o:=s div 20;

for i:=1 to 20 do

if m[i]>o then writeln (m[i]) ;

end.

Прошу прощения, если есть ошибки в синтаксисе. Нет возможности проверить в компиляторе