Question

ПАСКАЛЬ. Найти количество значений меньших числа А в матрице (двухмерный массив), что задает пользователь.

Answer 1

Відповідь:

Пояснення:

Program Zavdanna;

const

   m = 2; n = 3;

var

   b: array[1..n,1..m] of integer;

   a: integer;

   i,j,k: byte;

begin

  write('введіть a');

  readln(a);

   k := 0;

  for i:=1 to n do  

        for j:=1 to m do

        begin

        write ('введіть b[',i,',',j,']: ');

        readln (b[i,j]);

        if b[i,j] < a then  k := k + 1;

           end;

   writeln('Значень, менших від а:', k) ;

end.