Ответить на вопросы теста

              Var a: Array [1..5] of Integer;  i, s: Integer;        begin
                         For  i := 1 to 5 do   Read ( a[i] ); 
                         s := 0;   For i := 1 to 5 do       If  a[i] < 0  then    s := s + a[i];
                        Writeln( s )
               end.

    Var a: Array [1..5] of Integer;   i, s: Integer; begin
  For  i := 1 to 5 do  Read ( a[i] );   s := 0;  For i := 1 to 5 do  If  a[i] > 0  then    s := s + 1;
  Writeln( s )
end.

    Var a: Array [ 1..5, 1 .. 5 ] of Integer;  i, j, s: Integer;
Begin
  For  i := 1 to 5 do
     For  j :=  1  to  5  do   Read ( a[i, j] );  
     s := 0; For i := 1 to 5 do   For  j :=  1  to  5  do  If  a[i, j] > 0  then    s := s + 1;     Writeln( s ) End.

   Var  N :  Integer;  A :  Array [ 1 .. N ]  of   Integer;

   randomize;      For i := 1 to 5 do
       begin
          a[i] := random(100);   Writeln( a[i] )
     end;

 Var a: Array [1..5] of Integer;   i, k, M: Integer;
  begin
     For i := 1 to 5 do    Read( a[i] );
     k := 1; M := a[1];  For i := 1 to 5 do    if  a[i] < a[k] then begin M := a[i]; k := i   end;
     Writeln( M )

      For i := 1 to 3 do   For j := 1 to 3 do      Read( a[i, j] );      k := 1; l := 1; M := a[1, 1];      For i := 1 to 3 do       For j := 1 to 3 do    if  a[i, j] > M then begin M := a[i, j]; k := i; l := j end;
       Writeln( k, l )

   Var a: Array [1..5] of Integer;   i, j, M, N: Integer;     begin        N := 5;        For i := 1 to N do    Read( a[i] );
       For   i := 1 to  N-1 do
            For   j := i  to  N do    if  a[i] > а[j] then  begin M := a[i]; a[i] := a[j]; a[j] := M end;
      For i := 1 to N do    Writeln( a[i] );

    N := 5;    For i := 1 to N do    Read( a[i] );    For   i := 1 to  Round(N/2) do       Begin M := a[i]; a[i] := a[N-i+1]; a[N-i+1] := M end;
   For i := 1 to N do    Writeln( a[i] );

     N := 5;  For i := 1 to N do    Read( a[i] );      For   i := 1 to  N do       Begin M := a[i]; a[i] := a[N-i+1]; a[N-i+1] := M end;
     For i := 1 to N do    Writeln( a[i] );

       N := 5; For i := 1 to N do    Read( a[i] );
      For   i := 3 to  N-1 do       a[i] := a[i+1];
      For i := 1 to N-1 do
      Writeln( a[i] );

For i := 1 to 5 do  Read( a[i] );                  k := 1;                  For i := 1 to 5 do                     if  a[i] < a[k] then k := i;                  Writeln( a[k] )

N := 6; M:=0;  For i := 1 to N do    Read( a[i] );    For   i := 1 to  N do    if i mod 2 = 0 then M := M + a[i];  Writeln( M )

N := 6; M:=0;  For i := 1 to N do    Read( a[i] );     For   i := 1 to  Round( N/2 ) do      M := M + a[2*i-1];  Writeln( M )

N := 6; M:=0;  For i := 1 to N do    Read( a[i] );        For   i := 1 to N-1 do     if a[i] > a[i+1] then begin Writeln( 'Нет' ); Halt end;
       Writeln( 'Да' )

N := 6;  For i := 1 to N do    Read( a[i] );
        For   i := 1 to N-1 do     if a[i] <= a[i+1] then begin Writeln( 'Нет' ); Halt end;
        Writeln( 'Да' )

N := 6;  For i := 1 to N do   Read( a[i] );                  For   i := 1 to N-1 do     if a[i] = a[i+1] then begin Writeln( 'Да' ); Halt end;