3) Дан массив из 15 целых чисел (вводятся случайным образом в диапазоне от 1 до 100). Составить программу, вычисляющую и выводящую на экран сумму шести первых элементов.

program sym; / /Название программы

var

i, sum: integer; / /Создание целочисленной переменной

a: array[1 ... 15] of integer; / / Создание массива

begin

i:=1;

sum:=0;

While i < = 15 do / /В цикле проходимся по всем элементам массива

begin

readln (a[i]); / /Читаем значение с консоли и присваиваем i элементу массива

if i < = 6 then / / Условие

sum: = sum + a[i]; 1 / /Если i - номер элемента массива < = 6, то складываем с переменной sum

i:=i+1; / /Увеличиваем счётчик

end;

println (sum); / /Выводим сумму 6 элементов

end.