Помогите решить задачи по 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;beginfor 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;beginfor i:=1 to 20 doread(m[i]);for i:=1 to 20 doif (m[i] mod 5=3) then writeln(m[i]);end.3) var a,b,i:longint;m:array[1..100] of real;beginread(a);read(b);for i:=1 to 20 doread(m[i]);for i:=1 to 20 doif (m[i]>=a) and (m[i]<=b) then writeln(i);end.4)varo,s,i:longint;m:array[1..100] of integer;beginfor i:=1 to 20 dobeginread(m[i]);s:=s+m[i];end;o:=s div 20;for i:=1 to 20 doif m[i]>o then writeln(m[i]);end. Прошу прощения, если есть ошибки в синтаксисе. Нет возможности проверить в компиляторе