Выберите верное представление арифметического выражения (y-3x)/(5-xy) на алгоритмическом языке:
А) x+3y/5xy
Б) x+3*y/5*x*y
В) (x+3y)/5xy
Г) (x+3*y)/(5*x*y)

КОД в Turbo Pascal

USES CRT;
VAR A:array[1..5,1..5] of integer;   
           i,j,min,s:integer;
BEGIN
CLRSCR;
Randomize; 
{заполняем массив случайными числами от 0 до 10}
for i:=1 to 5 do   
   for j:=1 to 5 do     
   A[i,j]:=random(10); 

{Выводим массив на экран} 
  for i:=1 to 5 do   
    begin   
      for j:=1 to 5 do     
         Write(A[i,j]:2, '   ');   
    Writeln;   
    end;

min:=A[1,1]; {Присваиваем минимальному значению первый элемент массива}   
 
{Ищем минимальный элемент в массиве} 
for i:=1 to 5 do     
   for j:=1 to 5 do     
       if A[i,j]<min then min:=A[i,j];

Writeln('Минимальный элемент в данном массиве = ',min);

{Обнуляем счетчик} 
s:=0;

{Считаем сколько минимальных элементов в каждой строке и выводим на экран}

for i:=1 to 5 do   
   begin     
      for j:=1 to 5 do       
         if A[i,j]=min then s:=s+1;     
      Writeln('В ',i,' строке минимальный элемент встечается ',s,' раз');                  s:=0;   
end;

READLN;
END.

"...напечатает сначала 2, потом - 6" -- это значит a=2 и b=6?

про пятеричные записи ничего не понял...  :) И ИМХО к чему такие сложности? И для чего нам комп и программа? Я подправил исходную прогу чтобы она выдавала все числа подходящие по условию

var x,a,b: longint;

begin

   for var i := 999 DownTo 100 do begin

       a := 0;

       b := 1;

       x := i;

       while x>0 do begin

           if x mod 2 > 0 then a := a+1 else b := b+(x mod 5);

           x := x div 5;

       end;

       if (a = 2) and (b = 6) then writeln('x = ', i, ' a = ', a, ' b = ',b);

   end;

end.

прога проводит расчет для всх трехзначных чисел от 999 до 100

итого мы видим что максимальное подходящее число это 960

при необходимости прогу можно переделать чтобы она находила только максимальное число.