Помогите пожалуйстаааа
progam primer;

var a: array [1..10] of integer;
i, s: integer;
begin
for i:= 1 to 10 do
a[i]:=random(15-5+1)+5;
for i:= 1 to 10 do
write (a[i], ' ');
s:=0;
for i:= 1 to 10 do
of a[i] mod 3=0 then
s:=5+a[i]
write 'сумма='.s);end.

А можете описать пожалуйста каждую строчку, что она выполняет.

расписал

Спасибо большое!

Все верно. Просто небольшие опечатки.//----------------------------------------------program primer; //имя программы вроде(необязательно)var a: array [1..10] of integer; //Объявление целочисленного массива а размером 10 эл.i, s: integer; //Объявление двух целочисленных переменныхbegin //началоrandomize; //Включает датчик случайных чисел(в PascalABC.NET можно не писать)for i:= 1 to 10 do  //Запускается цикл от 1 до 10a[i]:=random(15-5+1)+5; //Текущему элементу присваивается случайное значение от 5 до 15. И так до тех пор, пока не закончится цикл, т.е. через 10 шаговfor i:= 1 to 10 do  //Запускается цикл от 1 до 10write (a[i], ' '); //Выводится текущий элемент массива. И так до тех пор, пока не закончится цикл, т.е. через 10 шаговs:=0; //Переменной для суммы присваивается 0for i:= 1 to 10 do //Запускается цикл от 1 до 10if a[i] mod 3=0 then //Если текущий элемент массива делится на 3 без остатка тогдаs := s + a[i]; //к сумме прибавляется текущий элемент массиваwrite('сумма = ',s); //вывод сообщения и значение переменной send. //конец