uses crt;
var matrix:array[1..5,1..5] of integer;
i,j:integer;
nullCount:integer;
maxElementValue:integer;
maxElementCount:integer;
chetElement:integer;
begin
clrscr;
randomize;
 for i:=1 to 5 do
 begin
  for j:=1 to 5 do
  begin
  matrix[i,j]:=random(20)-10;

  write(matrix[i,j]);
  write('   ');
  end;
  writeln;
 end;

 nullCount:=0;

 for i:=1 to 5 do
 for j:=1 to 5 do
 if(matrix[i,j] =0) then nullCount:=nullCount+1;
 writeln('1. kolvo nulej: ', nullCount);

 maxElementValue:= matrix[1,1];
 maxElementCount:=0;
 for i:=1 to 5 do
 for j:=1 to 5 do
 begin
 if(matrix[i,j] > maxElementValue) then
 begin
 maxElementValue:=matrix[i,j];
 maxElementCount:=0;
 end;
 if(matrix[i,j] = maxElementValue) then maxElementCount:=maxElementCount + 1;

 end;
writeln('2. Max el is:',maxElementValue,', and count is:',maxElementCount);


 for i:=1 to 5 do
 begin
 chetElement:=0;
 for j:=1 to 5 do
 begin
 if(not odd(matrix[i,j])) then chetElement:=chetElement+1;
 end;
 writeln('3 zad. stroka ',i,', chetnyh:', chetelement);
 end;

 for i:=1 to 5 do
 begin
   for j:=1 to 5 do
   begin
     if(matrix[i,j] mod 5) = 0 then
     writeln('4 zad. element v stroke ',i, ' v pozicii ', j, ' znach: ', matrix[i,j],', kraten 5');
   end;
 end;
 writeln('Press enter');
 readln;
end.