Question

Информатика массив найти кол во элементов <10

Answer 1

var
  m: array [1 .. 16] of integer;
  i,countMin: integer;
begin
      for i := 1 to 16 do
      begin
        randomize;
        m[i] := random(100);
           if(m[i] <10) then
             countMin:=countMin+1;
      end;
      writeln('Исходный массив');
      for i := 1 to 16 do
        writeln('m[', i, ']=', m[i], ' ');
      writeln("Количество элементов <10",countMin);
      readln;
   end.