Решить карточку по информатике,

ответ:

объяснение:

хочищь ты щащлик бащлик

ответ:

условие?

объяснение:

Var a: array[1..10] of integer; i,n,k,l,j: integer; begin readln(n); for i: =1 to n do a[i]: =random(1,10); for i: =1 to n do write(a[i],' '); writeln; for i: =1 to n do   if (a[i]> =6) and (a[i]< =20) then   k: =k+1; writeln('количество значений лежащих в промежутке [6 до 20]  ',k); for i: =1 to n-1 do   for j: =i+1 to n do       if a[i]*a[j]> 10 then     l: =l+1; writeln('количество значений п роизведение которых больше 10',l); end.

// pascalabc.net 3.0, сборка 1073 const   sb='bcdfgjklmnpqrstvwxz';   s='computer programming is a process of computer programs creation'; var   i,n: integer;   s1,sn,t: string; begin   i: =1;   while s[i]< > ' ' do inc(i);   s1: =copy(s,1,i-1);   n: =length(s); i: =n;   while s[i]< > ' ' do dec(i);   sn: =copy(s,i+1,n-i);   t: ='';   for i: =1 to length(s1) do       if pos(s1[i],sb)> 0 then t: =t+s1[i];   s1: =t;   t: ='';   for i: =1 to length(sn) do       if pos(sn[i],sb)> 0 then t: =t+sn[i];   sn: =t;   t: ='';   for i: =1 to length(s1) do       if pos(s1[i],sn)> 0 then           if pos(s1[i],t)=0 then t: =t+s1[i];   for i: =1 to length(t) do write(t[i],' ');   writeln end.   тестовый прогон: t r 2. "нормальное" решение// pascalabc.net 3.0, сборка 1073 const   sb='bcdfgjklmnpqrstvwxz';   s='computer programming is a process of computer programs creation'; begin   var a: =s.towords(' ');   a[0].intersect(a[a.length-1]).where(x-> pos(x,sb)> 0).println(',') end. тестовый прогон: t,r