Написать программу, которая вычисляет количество элементов одномерного массива, лежащих в диапазоне от -10 до -2. массив состоит из 16 вещественных элементов.

for i in range(15):

if (a[i]<=-2) and (a[i]>=-10):

k+=1

print k

 

Program Matrix; 

Uses Crt;
type matrix=array[1..3,1..3] of real;
var m:matrix;

 

procedure PrintMatrix(mas:matrix);
var j,k:integer;
begin
     for k:=1 to 3 do
           begin
               for j:=1 to 3 do
                     begin
                         write(mas[k,j]:7:2);
                      end;
                writeln;
         end;
end;

 

 

procedure Auto;
var i,j:integer;
begin
     randomize;
     for i:=1 to 3 do
           begin
               for j:=1 to 3 do
                     begin
                       m[i,j]:=25+random(21)+i;
                      end;
           end;
end; 

 

begin 

     clrscr; 

     Auto;

     PrintMatrix(m);

     readkey;

end;

 

 

 

На скейтборде и на роликах умеют кататься 10 человек, а 3 из них катаются еще и на сноуборде. Следовательно, кататься только на скейтборде и на роликах умеют 10-3=7 ребят. Аналогично получаем, что только на скейтборде и на сноуборде умеют кататься 8-3=5 ребят, а только на сноуборде и на роликах 5-3=2 человека. Определим теперь, сколько человек умеют кататься только на одном спортивном снаряде. Кататься на сноуборде умеют 30 человек, но 5+3+2=10 из них владеют и другими снарядами, следовательно, только на сноуборде умеют кататься 20 ребят. Аналогично получаем, что только на скейтборде умеют кататься 13 ребят, а только на роликах – 30 ребят. По условию задачи всего 100 ребят. 20+13+30+5+7+2+3=80 – ребят умеют кататься хотя бы на одном спортивном снаряде. Следовательно, 20 человек не умеют кататься ни на одном спортивном снаряде. 

20 человек не умеют кататься ни на одном спортивном снаряде.