1 дан миссив из n целых чисел. напишите программу определяющую сколько в массиве четных чисел, 2). дан массив из n целых чисел. напишите программу определяющую каких элементов в точке больше положительных или отрицательных

Program bifi; const n=50; var a: array[1..n] of integer; i,c,l: integer; begin for i: =1 to n do readln(a[i]); c: =0; for i: =1 to n do if a[i] mod 2 = 0 then c: =c+1; writeln(c); readln; end. program bifi; const n=50; var a: array[1..n] of integer; i,k,l: integer; begin k: =0; l: =0; for i: =1 to n do begin  readln(a[i]);                       if a[i]< 0 then k: =k+1                                    else if a[i]> 0 then l: =l+1;                       end; if k> l then writeln('больше положительных')         else if l> k then writeln('больше отрицательных')                         else writeln('одинаково'); readln; end.

//pascalabc.net (версия 3.1, сборка 1198 от 11.03.2016) begin var n: integer;   repeat       n : = readinteger('введите возраст');   until n < > 0;   case n of       1..9: println('дитя');       10..12: println('отрок');       13..18: println('юноша');       19..24: println('молодой человек');       25..60: println('мужчина')   else println('старик');   end; end.

Const n=10; m=5; var a: array[1..n,1..m+1] of integer; i,j,k,sp,s: integer; begin randomize; writeln('   результаты соревнований'); for i: =1 to n do   begin   s: =0;   for j: =1 to m do   begin   a[i,j]: =random(50)+50;   write(a[i,j]: 4);   s: =s+a[i,j];   end;   a[i,m+1]: =s;   writeln(s: 5);   end; write('k='); readln(k); sp: =0; for i: =1 to n do   if a[i,m+1]> =k then sp: =sp+1; writeln('sp=',sp); end. пример:   результаты соревнований   69   52   91   62   65   339   70   53   96   56   97   372   78   98   94   61   62   393   62   86   50   58   95   351   82   98   53   56   81   370   75   64   56   85   54   334   69   99   53   72   97   390   55   75   66   59   61   316   99   71   83   75   51   379   91   73   53   88   79   384 k=350 sp=7