Входные данные: В первой строке – одно натуральное число N – количество
зверей
(1 ≤ N ≤ 80). В следующей строке – N «слов», записанных через пробел, по одному на
каждое животное. Все «слова» имеют длину не более 8 звуков.
Выходные данные: Вывести число – номер слова «mu» в строке.
Гарантируется, что такое слово есть. Если слов "mu" было несколько – вывести номера
слов «mu» в строке через пробел в том порядке, в котором стояли звери.

Program pr;
uses crt;

Var mas:array[1..1000, 1..1000] of integer;
N,M,i,j,k:integer;

Begin
Writeln('Введите размер матрицы N*M');
Write('N = ');
readln(N);
Write('M = ');
readln(M);

if (M>1000) or (N>1000) or (M<1) or (N<1)
then  
Writeln('Ошибка, указанные значения выходят за пределы матрицы')   else   
        Begin      
 Writeln('Введите элементы матрицы');      

k:=0; 
 for i:=1 to N do     
  for j:=1 to M do     
    Begin     
      readln(mas[i,j]);       
      if (mas[i,j] mod 2 = 0) then k:=k+1;     
    end; 
  
    Writeln();   
    Writeln('Исходная матрица');
   
   for i:=1 to N do   
     Begin     
       for j:=1 to M do     
          Begin     
             Write(mas[i,j], ' ')     
           end;     
      Writeln();   
     end;         

Writeln();   
Writeln('Количество четных элементов = ',k);      
 end;

readln;
end.

Вот ссылка на готовую прогу → https://yadi.sk/d/pRyX2bUGMIdWsw

Объяснение:

Это было сделана на среде программирования Delphi 7 в консольном режиме.

P.S: Код программы↓

var

i,s,n: longint;  // объявляем переменные

begin  

SetConsoleCP(1251);  // для вывода в консоль русские символы

SetConsoleOutputCP(1251);  // для вывода в консоль русские символы

write('Здравствуйте! Введите любое число: ');  //вывод сообщения

readln(n);  // запишем то, что написал пользователь

s:=0;  // присвоим для начало 0

for i:=2 to n do  

    if i mod 2 = 0 then s:=s+i;

writeln('Ваше число: ', s);  //выводим S

readln;

end.

Я плохо объясняю, но думаю ты понял.