Из тележки товар с ценником 50 попадет на верхнюю полку, остальные на нижнюю т. к. условие 200>цены товара подходит только для ценника 50.
1) 8/2=4
4/2=2
2/2=1
12( приписали 2)
12/2=6
Ответ: 8 преобразуется в 6
2)12212
Const n=5;
var i,j:integer;
a:array[1..n,1..n] of integer;
Max:integer;
procedure p_max(input_mass:integer);
begin
if input_mass>Max then
Max:=input_mass;
end;
//Заполняем массив
procedure zapolnenue;
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do
a[i,j]:=Random(1000);
end;
begin
Randomize;
zapolnenue;
writeln('Массив:');
for i:=1 to n do
begin
for j:=1 to n do
begin
write(a[i,j],' ');
p_max(a[i,j]);
end;
writeln;
end;
writeln;
writeln('Max = ',Max);
end.