Если в заданной матрице a(n, m) есть хотя бы один элемент, больший ста, то элементы обеих диагоналей замените нулями. написать программу на pascal

Program  gt; var  a: array[1..100,1..100]of  integer; n,m,i,  j  ,q: integer; begin read(n,m); q: =0; for  i: =1 to n do for j: =1 to m do begin read(a[i,  j]); if(a[i,  j]> 100)then q: =1; end; if(q=1)then begin   for i: =1 to n do for j: =1 to m do if(i=j)or(i=m-j+1)then  a[i,j]: =0;   end; for i: =1 to n do begin for j: =1 to m do write(a[i,  j],' '); writeln; end; end.

артефакт, инстинкт, антрацит, оригинал.

правило шифрования - слова написаны справа налево, т.е. наоборот.

var

  s: string;

  z,z1,i: integer;

begin

  readln(s);

z: =0;

z1: =0;

  for i: =1 to length(s) do

  begin

  if s[i]='м' then inc(z);

  if s[i]='н' then inc(z1);

  end;

if z> z1 then writeln('больше букв м');

if z< z1 then writeln('больше букв н');

if z=z1 then writeln('букв м и н равное количество');

end.