Задачи по паскаль

[XaVi_06]

Помогите у меня завтра проверочная и надо решить эти задачи подскажите пожалуйста

1 Данный массив целых чисел состоящий из 15 элементов. Заполнить его с клавиатуры
Найти:
А) Сумму всех положит элементов значение которых меньше 10
В) Вывести индексы тех элементов значение которых кратна 3 и 5
2 Определить пару соседних элементов с суммой равной заданному числу
Заранее спасибо!

[VIK_aka_TOR]

подсказки:
сума положительных которые меньше 10

sum:= 0;
for i:=1 to 15 do
if (a[i] > 0) and (a[i] < 10) then
sum:= sum + a[i];

индексы кратных 3 и 5

for i:=1 to 15 do
if ((a[i] mod 3) = 0) or ( (a[i] mod 5) = 0) then
writeln(i);


	
	

			
				 Определить пару соседних элементов с суммой равной заданному числу
			
		
насколько понимаю то 2 элемента масива и в сумме должны довать такое то число...

	
	
for i:=1 to n do
if (a[i] + a[i+1]) = x then
writeln(a[i] ,' + ', a[i+1] , ' = ', x);

[bonjovi]

var
a:array [1..15] of integer;
i,s:integer;
Begin
     For i:= 1 to 15 do Readln(a[i]);
     For i:= 1 to 15 do
     If (a[i]>0) and (a[i]<10) then
     s:=s+a[i];
     Writeln(s);
     end.

[Hacker19_90]

1 Данный массив целых чисел состоящий из 15 элементов. Заполнить его с клавиатуры
Найти:
А) Сумму всех положит элементов значение которых меньше 10
В) Вывести индексы тех элементов значение которых кратна 3 и 5

sum := 0;
for i := 1 to 15 do
begin
    if a[i] in [1..9] then Inc(sum, a[i]);
    if ((a[i] mod 3) = 0) and ((a[i] mod 5) = 0) then Write (i:3);
end;
Writeln (sum);

2 Определить пару соседних элементов с суммой равной заданному числу

for i := 1 to (n-1) do
    if (a[i] + a[i+1]) = zad_chislo then
    begin
        Writeln (a[i], '+', a[i+1], '=', zad_chislo);
        break;
    end;