Вова Серых пришёл в гости к Пете Тараканчикову [Введение в ИРС]

Петя решил показать Вове свою коллекцию фотографий многоугольников разного цвета. Когда Петя спросил Вову нравятся ли Вове многоугольники красного цвета на фотографиях, Вова призадумался.

Тогда Петя решил проверить точно ли Вова различает цвета и спросил Вову сколько объектов красного цвета распологается на фотографиях.

Вова тщательно скрывает от всех, в том числе от Пети, что он не различает цвета Вове ответить на вопросы Пети.

Петя буде

Var a:array [1..10, 1..10] of integer;
       i, j, max, min, imin, imax, jmin, jmax:integer;
begin 
   imax:=0; imin:=0; jmax:=0; jmin:=0; 
   max:=-maxint;  min:=maxint; 
   for i:=1 to 10 do   
      begin   
         for j:=1 to 10 do     
            begin     
            a[i,j]:=random(89)+10;     
            write(a[i,j],' ');     
            if a[i,j]<min then        
               begin        
                    min:=a[i,j];        
                    imin:=i;        
                    jmin:=j;        
               end;     
               if a[i,j]>max then        
                  begin        
                       max:=a[i,j];        
                       imax:=i;        
                       jmax:=j;        
                  end;     
               end;     
               writeln;     
            end;
   writeln;
   writeln('Максимальный элемент:',max);
   writeln('Его индекс ',imax,' ',jmax);
   writeln('Минимальный элемент:',min);
   writeln('Его индекс ',imin,' ',jmin);
end.

Var a:array [1..10, 1..10] of integer;
       i, j, max, min, imin, imax, jmin, jmax:integer;
begin 
   imax:=0; imin:=0; jmax:=0; jmin:=0; 
   max:=-maxint;  min:=maxint; 
   for i:=1 to 10 do   
      begin   
         for j:=1 to 10 do     
            begin     
            a[i,j]:=random(89)+10;     
            write(a[i,j],' ');     
            if a[i,j]<min then        
               begin        
                    min:=a[i,j];        
                    imin:=i;        
                    jmin:=j;        
               end;     
               if a[i,j]>max then        
                  begin        
                       max:=a[i,j];        
                       imax:=i;        
                       jmax:=j;        
                  end;     
               end;     
               writeln;     
            end;
   writeln;
   writeln('Максимальный элемент:',max);
   writeln('Его индекс ',imax,' ',jmax);
   writeln('Минимальный элемент:',min);
   writeln('Его индекс ',imin,' ',jmin);
end.