Таблица содержит следующие данные об студентах:фамилия, возраст и рост студента. Сколько студентов может заниматься в баскетбольной секции если туда принимают студентов ростом не менее 160см. Возраст не должен превышать 20лет. ​

var A: array [1..4,1..3] of real;

var B: array [1..4,1..3] of integer;

var i,j,max,min: integer;

begin

max:=11;

min:=11;

randomize();

writeln('Произвольная матрица B 3x4:');

For i:= 1 to 4 do

begin

 For j:= 1 to 3 do

 begin

 B[i,j]:=random(100);

 if (B[i,j]<B[min div 10,min mod 10]) then min:=i*10+j;

 if (B[i,j]>B[max div 10,max mod 10]) then max:=i*10+j;

 write(B[i,j]:4);

 end;

 writeln();

end;

writeln('Максимальный элемент матрицы B: ',B[max div 10,max mod 10]);

writeln('Минимальный элемент матрицы B: ',B[min div 10,min mod 10]);

writeln('Матрица A:');

For i:= 1 to 4 do

begin

 For j:= 1 to 3 do

 begin

 A[i,j]:=(2*B[i,j]+B[min div 10,min mod 10])/(B[max div 10,max mod 10]);

 write(A[i,j]:7:3);

 end;

 writeln();

end;

end.

использовать Робот

алг  столбы

нач

нц пока справа не стена

вправо

кц

нц пока справа стена

закраситьвверх

кц

вправо

нц пока снизу не стена

вниз

кц

нц пока справа не стена

вправо

кц

нц пока справа стена

закраситьвверх

кц

вправо

нц пока снизу не стена

вниз

кц

нц пока справа не стена

вправо

кц

нц пока справа стена

закраситьвверх

кц

вправо

нц пока снизу не стена

вниз

кц

нц пока справа не стена

вправо

кц

нц пока справа стена

закраситьвверх

кц

вправо

нц пока снизу не стена

вниз

кц

нц пока справа не стена

вправо

кц

нц пока справа стена

закраситьвверх

кц

вправо

нц пока снизу не стена

вниз

кц

нц пока справа не стена

вправо

кц

нц пока справа стена

закраситьвверх

кц

вправо

нц пока снизу не стена

вниз

кц

кон