40 . хотя бы 2 решите .

1. вот так это нужно решать по-современному // pascalabc.net 3.1, сборка 1172 от 19.02.2016 begin   writeln('k=',arrrandom(15,1,20).println.count(x-> x> 10)) end. тестовое решение 4 16 14 9 11 18 17 14 14 15 1 1 9 10 15 k=9 2. а вот так учат решать в // pascalabc.net 3.1, сборка 1172 от 19.02.2016 var   a: array[1..15] of integer;   i,k: integer; begin   randomize;   k: =0;   for i: =1 to 15 do begin       a[i]: =random(20)+1;       write(a[i],' ');       if a[i]> 10 then k: =k+1       end;   writeln;   writeln('k=',k) end. тестовое решение: 18 15 7 6 3 3 10 6 6 15 2 16 16 2 12 k=6

#include < iostream> using namespace std; int main() {    int k=0,i=0,n=1;       while (n! =0)      {      i++;       if (n%105==0) k++;             cout< < "nunber "< < i< < "   ";   cin> > n;       }    if (k> =2)   cout< < "yes"< < endl;     else cout< < "no"< < endl;     system("pause");     return(0); }