В каком из операторов цикла допущена ошибка?

ответ: а)

В первом цикле выполнится только первая строчка, благодаря синтаксису Паскаля. Чтобы выполнилась и вторая, нужно после do написать begin и в конце end; .

Ошибка в В s:=s*i вотак мама ка лутшая

program pr;

var mas: array[1..40] of integer;

i, sum: integer;

begin

randomize;

for i: =1 to 40 do mas[i]: =random(20);

for i: =1 to 40 do if mas[i]< =10 then sum: =sum+mas[i];

writeln ('сумма равна ', sum);

readln;

end.

программу проверил все работает

var

  i,n,a: integer;

begin

  readln(n);

for i: =1 to n do

begin

  read(a);

if (a mod 3=0)and(a mod 5> 0) then write(a,' ');

end;

writeln;

end.