Составить программу на языке паскаль: 1)для массива k из 12 вещественных чисел определить сколько элементов массива меньше 0. 2)в массиве м из 10 целых чисел найти количество элементов равных 3. 3)в массиве из 8 целых найти номер массива с наибольшим значением. 4)в массиве из 12 целых чисел найти количество и сумму элементов, расположенных до максимального элемента. 5)для массива из 15 вещественных подсчитать количество элементов массива меньших суммы первого и последнего элементов массива.

1) program massiv1;

      uses crt;

      var k: array[1..12] of real;

            i,c: integer;

begin

      clrscr;      

      write('введите элементы массива k: ');

      c: =0;    

      for i: =1 to 12 do

          begin 

              readln(k[i]);

              if (k[i]< 0) then inc(c);

 

        end;

 

      writeln;

      writeln;  

  for i: =1 to 12 do write(k[i]: 4: 4);

  writeln;    

    writeln('количество элементов < 0: ',c);  

    readkey;        

end.   

 

 

 

2) program massiv2;

      uses crt;

      var m: array[1..10] of integer;

          i,c: integer;

begin

      clrscr;      

      write('введите элементы массива m: ');

      c: =0;    

      for i: =1 to 10 do

          begin 

              readln(m[i]);

              if (m[i]=3) then inc(c);

        end;

      writeln;

      writeln;  

  for i: =1 to 12 do write(m[i]: 4);

  writeln;    

    writeln('количество элементов =3: ',c);  

    readkey;        

end.   

 

в третьем   видимо имеется ввиду номер элемента этого массива, т.к по условию массив у нас один.

 

 

  3) program massiv3;

      uses crt;

      var m: array[1..8] of integer;

            i,c,max: integer;

begin

      clrscr;      

      write('введите элементы массива m: ');

      c: =0;    

      for i: =1 to 8 do   readln(m[i]);

      writeln;

    writeln;  

  max: =m[1] 

  for i: =1 to 8 do

    begin

          if   (m[i]> max) then

                      begin

                          max: =m[i];

                          c: =i 

                    end;          

          write(m[i]: 4);  

end;

    writeln('индекс максимального элемента =: ',c);  

    readkey;        

end.   

 

4) program massiv4;

      uses crt;

      var m: array[1..12] of integer;

            i,c,max,sum: integer;

begin

      clrscr;      

      write('введите элементы массива m: ');

      c: =0; sum: =0;    

      for i: =1 to 12 do   readln(m[i]);

      writeln;

    writeln;  

  max: =m[1] 

  for i: =1 to 12 do

    begin

          if   (m[i]> max) then

                      begin

                          max: =m[i];

                          c: =i 

                    end;          

          write(m[i]: 4);  

end;

for i: =1 to c-1 do sum: =sum+m[i];

  writeln('количество элементов расположенных до max : ',с-1);  

  writeln('сумма элементов расположенных до max : ',sum);  

  readkey;        

end.   

 

  в пятом   видимо имеется ввиду значения элементов массива  меньшие чем сумма первого и последнего

 

 

 

5) program massiv5;

      uses crt;

      var k: array[1..15] of real;

            sum: real;

            i,c: integer;

begin

      clrscr;      

      write('введите элементы массива k: ');

      c: =0;    

      for i: =1 to 15 do    readln(k[i]);

    sum: =k[1]+k[15];        

    writeln;

    writeln;  

  for i: =1 to 15 do

      begin

            write(k[i]: 4: 4);

            if   (k[i]< sum) tnen inc(c);  

          end;

  writeln;    

    writeln('количество элементов : ',c);  

    readkey;        

end.   

 

 

 

Переведем  а4 в десятичное.   a         4  16^1     16^0 16          1 a*  16 + 4  *  1 = 10 * 16 + 4 = 160 + 4 = 164 a4(16)  =  164(10) переведем  52  в десятичное. 5          2 8^1    8^0 8          1 5  *  8  + 2 * 1 = 40 + 2 = 42 52(8)  =  42(10) a4(16)  +  52(8)  = 164(10)  + 42(10) = 206(10) переведем  42 в десятичное. 4                2 16^1      16^0 16            1 4  * 16 + 2 * 1 = 64  + 2 = 66 42(16)  =  66(10) переведем  53  в десятичное. 5            3 8^1      8^0 8            1 5  *  8 + 3 * 1  = 40 + 3 = 43 53(8)  = 43(10) 42(16)  +  53(8) = 66(10)  + 43(10)  = 109(10)