Скатиться, если правильно варианты ответов переписал :)
Извини, но моя твоя, непонимай
Var
i,s:integer;
a:array [1..12] of integer;
begin
randomize;
s:=0;
for i:=1 to 12 do
begin
a[i]:=Random(35)+10;
writeln(a[i]);
if a[i] mod 3=0
then s:=s+a[i];
end;
writeln(s);
end.
Я бегу как паровоз у меня опять понос в туалет несусь я щас обоссусь
ну как-то так