Question

Помогите пожалуйстаааа
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.

Answer 1

Все верно. Просто небольшие опечатки.
//----------------------------------------------

program primer; //имя программы вроде(необязательно)

var a: array [1..10] of integer; //Объявление целочисленного массива а размером 10 эл.

i, s: integer; //Объявление двух целочисленных переменных

begin //начало

randomize; //Включает датчик случайных чисел(в PascalABC.NET можно не писать)

for i:= 1 to 10 do  //Запускается цикл от 1 до 10
a[i]:=random(15-5+1)+5; //Текущему элементу присваивается случайное значение от 5 до 15. И так до тех пор, пока не закончится цикл, т.е. через 10 шагов

for i:= 1 to 10 do  //Запускается цикл от 1 до 10
write (a[i], ' '); //Выводится текущий элемент массива. И так до тех пор, пока не закончится цикл, т.е. через 10 шагов

s:=0; //Переменной для суммы присваивается 0

for i:= 1 to 10 do //Запускается цикл от 1 до 10
if a[i] mod 3=0 then //Если текущий элемент массива делится на 3 без остатка тогда
s := s + a[i]; //к сумме прибавляется текущий элемент массива

write('сумма = ',s); //вывод сообщения и значение переменной s

end. //конец

Answer 2

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

Answer 3

расписал

Answer 4

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