Cклавиатуры заполнен массив из 30 элементов. составьте фрагмент программы для решения следующих : 1.найти количество четных чисел.для проверки использовать подпрограмму. 2.найти среднее арифметическое двузначных чисел кратных 3, но не кратных 9. в случае если таких элементов нет вывести на экран -1. 3.найти наибольшую длину цепочки четных элементов массива. 4. удалить элемент массива и сдвинуть оставшиеся элементы. номер удаляемого элемента вводится с клавиатуры. 5.вывести на экран второй максимум массива

Pascalabc.net 3.3.5, сборка 1662 от 29.04.2018 внимание! если программа не работает, обновите версию! begin   var a: =readarrinteger(30);   writeln('1. количество четных ',a.where(t-> t.iseven).count);   var s: =a.where(t-> (t mod 3=0) and (t mod 9< > 0) and t.between(10,99));   write('2. мудреное среднее арифметическое ');   if s.count=0 then writeln(-1) else writeln(s.average);   write('3. наибольшая длина цепочки четных элементов ');   var (l,l1): =(-1,0);   foreach var t in a do       if t.iseven then l1+=1       else begin           l: =max(l,l1);           l1: =0           end;   writeln(l);   var k: =readinteger('4. номер удаляемого элемента (1-30): ')-1;   writeln('массив после удаления элемента');   a: =a? [: k]+a? [k+1: ]; a.println;   write('5. второй максимум ');   a.orderbydescending(t-> t).skip(1).take(1).println end. пример 40 -116 91 -47 14 -10 -88 81 92 -106 121 133 -49 69 50 -60 49 57 30 49 60 106 -94 50 -32 -52 -60 -96 148 -49 1. количество четных 19 2. мудреное среднее арифметическое 54 3. наибольшая длина цепочки четных элементов 9 4. номер удаляемого элемента (1-30): 7 массив после удаления элемента 40 -116 91 -47 14 -10 81 92 -106 121 133 -49 69 50 -60 49 57 30 49 60 106 -94 50 -32 -52 -60 -96 148 -49 5. второй максимум 133

Program aaa; type        t=array[1..30] of integer; var        a: t;         i,h,max,max1,y: integer;         q,c: real; procedure chet(a: t);         var            i,z: integer;         begin            z: =0;             for i: =1 to 30 do                if(odd(a[i])=false) then inc(z);             writeln(z);         end; begin        for i: =1 to 30 do            read(a[i]);         //1        chet(a);         //2        h: =0;         c: =0;         for i: =1 to 30 do            if((a[i] mod 3 = 0) and (a[i] mod 9 < > 0) and (a[i]> 9) and (a[i]< 100)) then begin                  inc(h);                 c: =c+a[i];           end;         if(h=0) then writeln(-1)          else writeln(c/h);         //3        h: =0;         max: =0;         for i: =1 to 30 do begin            if((odd(a[i])=false) and (y=0)) then begin                      h: =i;                       y: =1;                       continue;             end;             if((y> 0) and ((odd(a[i])= then                      inc(y)                else                  if(y> max) then begin                        max: =y;                         max1: =h;                         y: =0;                   end                    else y: =0;         end;         for i: =max1 to max+max1-1 do            write(a[i],' ');         writeln;         //4        readln(h);         y: =a[h];         for  i: =h to 29 do            a[i]: =a[i+1];         for i: =1 to 29 do            write(a[i],' ');         for i: =29 downto h do            a[i+1]: =a[i];         a[h]: =y;         writeln;         //5        max: =0;         max1: =0;         for i: =1 to 30 do begin            if(a[i]> max) then begin                    max1: =max;                     max: =a[i];             end;             if((a[i]> max1) and (a[i]< max)) then                      max1: =a[i];         end;         writeln(max1); end.

Если в требуется найти количество элементов в множестве y, то это можно сделать так: y: =(x2**x2)+(x1*x3)); s: =0; for i: =1 to 100 do if (i in y) then   begin   writeln('элемент ',i,' входит в множество');   s: =s+1;   end; writeln('мощность y: ',s); множество р для этого не нужно!