Дан целочисленный массив из 30 элементов. элементы массива могут принимать целые значения от 0 до 1000. напишите программу, которая подсчитывает количество элементов массива равных макс. среди двухзначных чисел. если ни одного такого числа нет, нужно вывести сообщение об этом.

Var     i,n,max: integer;     a: array[1..30]of integer; begin writeln('исходный массив: '); for i: =1 to 30 do   begin   a[i]: =random(0,1000);   writeln(a[i]);   if (a[i]> 9) and (a[i]< 100) then       begin       if max=0 then max: =a[i];       if a[i]> max then max: =a[i];       end;   end; for i: =1 to 30 do   if a[i]=max then n: =n+1; if max> 0 then writeln('n=',n)     else writeln('таких нет'); end.

Из большего вычитаем меньшее: поместить вычитаемое под уменьшаемое, записать единицы под единицами, десятки под десятками и т.д. вычесть поразрядно. если необходимо занять десяток из большего разряда, то над разрядом, в котором заняли, поставить точку. над разрядом, для которого заняли, поставить 10. если в разряде, в котором заняли, стоит 0, тогда занимаем из следующего разряда уменьшаемого и над ним ставим точку. над разрядом, для которого заняли, поставить 9, т.к. один десяток уже занят если исходное вычитаемое было больше уменьшаемого, результату присваиваем знак минус

Объяснение:

uses GraphABC;

begin

line(0,0,640,240);

line(45,0,640,240);

line(89,0,640,240);

line(132,0,640,240);

line(176,0,640,240);

line(219,0,640,240);

line(263,0,640,240);

line(306,0,640,240);

line(350,0,640,240);

line(393,0,640,240);

line(437,0,640,240);

line(480,0,640,240);

end.

uses GraphABC;

begin  

line(0,0,640,0);

line(0,47,640,47);

line(0,94,640,94);

line(0,141,640,141);

line(0,188,640,188);

line(0,235,640,235);

line(0,282,640,282);

line(0,329,640,329);

line(0,376,640,376);

line(0,423,640,423);

line(0,470,640,470);

end.