Написать программу к задаче: Завести в программе массив под именем TOR из 7 элементов, элементы массива TOR[2,1,2,1,2,1,2], вывести элементы массива на экран и подсчитать сумму элементов массива. Выучить определения массива.

Куда уж проще, создаем массив, заполняем его, нужными числами

Создаем переменную в которую будем подсчитать сумму элементов массива S: integer

Пишем цикл для перебора каждого элемента

for I:=1 to 7 do

begin

S:=S+A[I]; / / тут считаем сумму

write (a[i],' ') ; / / выводим

end;