Определить если в заштрихованной области массива элемент равный а (массив имеет размерность n*n

заштрихована область в форме песочных часов (см. картинку во вложении? каждая клеточка - это элемент массива)

 

program sandglass; uses crt; const n=19; var mas: array[1..n,1..n] of integer;   i,j,a,yes: integer; begin  randomize;   for i: =1 to n do      for j: =1 to n do          mas[i,j]: =random(101)-50;   for i: =1 to n do      begin          for j: =1 to n do              write (mas[i,j]: 4);           writeln;       end;   yes: =0;   write ('please input a=');   read(a);   writeln;   for i: =1 to n do      for j: =1 to n do          begin              if (i< =j) and (i+j< =n+1) and (mas[i,j]=a) or (i> =j) and (i+j> =n+1) and (mas[i,j]=a) then                  begin                      yes: =1;                   end;           end;   if yes< > 0 then          write ('yes! ')      else          write ('no! '); end.

Вцикле  проверяете (a mod 2) равно ли нулю, то бишь равен ли нулю остаток. если да - число четное. одновременно с этим первое четное число кладете в переменную max, а остальные четные сравниваете с этой переменной, если какое-то число больше - его кладете в переменную max. ясно? если нет, могу написать программу, но лучше чтобы вам было ясно upd: можно через массивы, но это не хардкорно a, max, counter   :   integer; begin max : = 0; for counter = 1 to 15 do     begin     writeln("write ur number: ");     readln(a);     if (a mod 2) = 0 then          if a > max then max : = a;     end; writeln(max); readln(); end. ––––––––––––––––––––––––––––––––––– вам б-г    

Объективность= эти брюки стоят три тысячи рублейнеобъективность= эти брюки дорого стоят достоверность= все ныне живущие люди умрутнедостоверность=люди бессмертны полнота= ира, моя родная сестра, приехала погостить на пару днейнеполнота=девушкаактуальность=на вашем счёте 2 рублянеактуальность=в 1894 на счёте вашего прапрадедушки было семь шекелейценная информация=хорошо написанная статья о том как вылечить больную печень. эта информация ценна для пьяницыне ценная=та же статья но для здорового шахтёра в уральских горах ценна не будетпонятная информация=в долларе 56,89 рублянепонятная информация=ドル56.89ルーブル