Написать программку на языке javascript: загадать загадку. если ответ верен – поздравить пользователя. затем сообщить, что игра окончена. если ответ неверный – написать пользователю, что он не угадал. добавить еще 3 загадки. подсчитать количество правильных ответов, сообщить пользователю.

//1

 <script type="text/javascript">
   var ans=prompt('Name a vegetable that is green on the outside and  white on the inside. It starts with C.','answer');
   if(ans=='Cucumber')
         alert('Congratulations, answer is right!');
         else
        alert('Wrong answer');
   alert('Game over');
 </script>

//2
 <script type="text/javascript">
   var count=0;
   var ans=prompt('Name a vegetable that is green on the outside and  white on the inside. It starts with C.','answer');
   if(ans=='Cucumber')
         count=count+1;
   ans=prompt('Name a tiny, round green vegetable that grows in pods. It starts with P. Children like it.','answer');
   if(ans=='Peas')
         count=count+1;
   ans=prompt('What goes up when the rain comes down?','answer');
   if(ans=='Umbrella')
         count=count+1;
   ans=prompt('I am purple, yellow, red,/and green./The King cannot reach me and neither can the Queen./I show my colours after the rain,/And only when the sun comes out again.','answer');
   if(ans=='Rainbow')
         count=count+1;
   alert('Count of right answers:'+count);
   alert('Game over');
 </script>

1) 165

2) 58

3) 8

1) цикл сработает 11 раз = > решаем через прогрессию

s = (a1 + an ) / 2 * n = (0 + 30) / 2 * 11 = 165 (или можно тупо посчитать по итерациям)

2) на нужно чтобы n = 150 => посчитаем сколько раз должен выполниться цикл (150 - 3) / 7 = 21

1200 / 21 = 57.14 округляем в большую сторону

3) У тебя строка из 193 восьмерок (8) программа 888 на 2 и 222 на 8 => 888 888 888 на 8 => 193 / 9 = 21 и еще 4 восьмерки => 25 дальше снова / 9  = 2 + 7 = 9 восьмерок которые заменяются на одну 8

1.
begin
 var a:=ArrRandom(10,1,50); a.Println;
 var c:=ReadInteger('c = ');
 var s:=a.Where(x->x>c);
 if s.Count>0 then
 writeln('Среднее арифметическое элементов > ',c,' = ',s.Average)
 else writeln('В массиве нет искомых элементов');
end.

Пример:
8 2 22 16 24 34 29 16 1 26
c =  50
В массиве нет искомых элементов

2.
const n=10;
var a:array[1..n] of integer;
c,i,s,k:integer;
begin
Randomize;
for i:=1 to n do begin
 a[i]:=random(51);
 write(a[i],' ');
 end;
writeln;
write('c = ');
readln(c);
s:=0; k:=0;
for i:=1 to n do
 if a[i]>c then begin s:=s+a[i]; k:=k+1; end;
if k>0 then writeln('Среднее арифметическое элементов > ',c,' = ',s/k:5:2)
else writeln('В массиве нет искомых элементов');
end.

Пример:
39 38 43 25 45 16 16 12 35 16
c = 40
Среднее арифметическое элементов > 40 = 44.00