На питон
Дана матрица 3х3. Переменной t присвоить значение true, если все элементы матрицы меньше числа, вводимого с клавиатуры и значение false иначе. Вывести полученный массив на экран в виде матрицы и результат переменной t.

min і max нужно присвоить а[1].

2048 бит : 8: 1024= 0.25 кбайт

var a: array[1..2,1..30] of integer; i,j: integer; begin      for i: = 1 to 30 do begin            writeln('введите номер ученика: ');             read(a[1,i]);             writeln('введите оценку: ');             read(a[2,i]);       end;             for i: = 1 to 10 do begin        writeln(i: 2,' - ');             for j: = 1 to 30              if a[1,j]=i then                        write(a[2,i],' ');       end;                   readkey; end.