Вопрос по информатике:

Дан массив из 30 элементов,заполненный случайными числами от 10 до 30. Найти сумму элементов,кратных 5.

Var {-1-. Опишите требуемый массив}   i, S: integer;   Begin   {-2-.Введите правильно формулу автозаполнения элементов массива числами из требуемого диапазона по условию задачи}   For i:= to do a[i]:=   {-3-. Выведите элементы массива через пробел}   For i:= to do write();   {-4-. Вставьте команду перевода курсора в начало новой строки}   {-5-. Запишите формулу вычисления суммы ВСЕХ элементов массива}   For i:= to do S:=   {-6-. Запишите вывод суммы ВСЕХ элементов массива}   writeln('Symma=',…)   end