Написать программу к задаче: Завести в программе массив под именем 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;