Помогите пожалуйста составить программу по теме массивы.

Задать массивы не более 27 элементов это уж сам ВВОДИ.
Не обязательно 27 - в задаче написано НЕ БОЛЕЕ.
Заменяем цифру 27 на переменную K;
Задаешь вопрос - какого размера К
READLN(k); {далее замени 27 нп К}
Это будут массивы А [27] B[27]
Выводим на экран массивы но В СТОЛБЦАХ - это наглядней.
FOR I:=1 TO 27 DO WRITELN (A:5, B:5):

И должен быть третий массив C{27]
Сначала, на ВСЯКИЙ СЛУЧАЙ очищаешь массив C
Это делается так.
FOR i:=1 TO 27 DO C =0;
А теперь заполняем этот массив новыми числами опять в цикле.
FOR I:=1 TO 27 DO C:=2*A/B; { Это удвоенное частное}
А теперь пытаемся найти сумму четных элементов
Для начала переменная SUM:=0;
Далее цикл
FOR I:=2 to K do begin
SUM:=SUN+C[{];
inc(i); { прибавляем к переменно И еще одну единицу для четности}
END; { цикл по I}
{А теперь вывести эту сумму. }
WRITELN(SUM:8);
END. {программы}

задай вопрос на rfpro.ru я там помогу тебе.

Сделаю за деньги. Бесплатно не охота. Делаю на делфи и лазарусе. Ну еще можно на си и шарпе - но это как договоримся.

ты дурак чтоли? не можешь такое просто задание выполнить? ..хотя скорее ты даже не пытался, тогда слово "Помогите" тут ни к чему