14. Найдите сумму четных элементов массива.
A. S = 0 for in in range ( 0, n ) : if A [ i ] % 2 == 0: S+=A[ i ].
B. S = 0 for in in range ( 0, n ) : if A [ i ] % 2 = 0: S+=A[ i ].
C. S = 1 for in in range ( 0, n ) : if A [ i ] % 2 == 0: S+=A[ i ].
D. S = 0 for in in range ( 1, n ) : if A [ i ] % 2 == 0: S+=A[ i ].
E. S = 0 for in in range ( 0, n ) : if A [ 2* i ] == 0: S+=A[ i ].

15. Найдите произведение нечетных элементов массива.
A. P=1 for in range (0 , n) : if A [ i ] % 2 ! = 0 : P*=A [i].
B. P=1 for in range (0 , n) : if A [ i ] % 2 ! == 0 : P*=A [i].
C. P=0 for in range (0 , n) : if A [ i ] % 2 ! = 0 : P*=A [i].
D. P=1 for in range (0 , n) : if A [ i ] % 2 == 0 : P*=A [i].
E. P=1 for in range (0 , n) : if A [ i ] % 2 <> 0 : P*=A [i].

Program z1;  Var a: array [1..1000] of integer;      b: array [1..1000] of integer; i,j,n,min,m:integer;Begin  write('Введите размер массива - ');  readln(n);  randomize;  for i:=1 to n do  begin    a[i]:=random(50)-0;    write (a[i],' ');  end;    j:=1;  for i:=2 to n-1 do  begin    if ((a[i]>a[i-1]) and (a[i]>a[i+1]))      then begin            b[j]:=a[i];            j:=j+1;           end;  end;    m:=j-1;  writeln;  for j:=1 to m do    write (b[j],' ');    min:=b[1];  for j:=2 to m do    if (b[j]<min) then min:=b[j];    writeln;  writeln(min);    End.

program p1;

uses crt;   вывод окошка

const N = 30;

var a: array [1..N] of integer;

i, max, max2 :integer;

begin

 

 for i:=1 to N do begin  вывод элементов массива с рандома

a[i]:=  random (100);

 write( a[i]:4);

 end;

         writeln;

   max:= a[1];  принимаем первый элемент массива за макс

   max2:= a[1];  принимаем первый элемент массива за макс

   

  for i:=1 to N do begin              находим первый max                                                                  

    if  max<a[i] then

      max:= a[i];

      end;

       

      for i:=1 to N do begin                            находим второй max2

        if (max2<a[i]) and ( a[i]<> max) then

         max2:= a[i];

         end;

         

         writeln('max=',max);

         writeln('max2=',max2);

         end.