Составьте программу нахождения наибольшего по модулю элемента целочисленного массива A(M,M), кратного 11. (ПАСКАЛЬ!)

Нужно, чтобы программа запустилась в PascalABC.net

​

Перед включением утюга необходимо проверить исправность проводки и корпуса.

Под ногами утюжильщицы должен быть резиновый коврик.

При легком покалывании рук во время работы следует отключить утюг и вызвать наладчика – покалывание происходит при замыкании на корпус.

Во время работы необходимо следить , чтобы шнур не касался подошвы утюга во избежание порчи изоляции.

Необходимо следить за нагревом утюга в соответствии с указателем терморегулятора.

В случае перегрева утюга нужно выключить его и охлаждать, проводя по влажной ткани.

Необходимо выключать утюг во время перерыва и по окончании работы.

При обнаружении неисправности утюга, розетки, вилки или шнура прекратить работу и вызвать электромонтера.

Объяснение:

1. "Школьное" решение

//PascalABC.Net 3.0, сборка 1064
var
  s:string;
  i,k:integer;
begin
  Write('Введите натуральное число: '); Readln(s);
  k:=0;
  for i:=1 to Length(s) do
    if s[i]='0' then Inc(k);
  Writeln('Количество нулей в записи числа равно ',k)
end.

Пример:
Введите натуральное число: 13054000230
Количество нулей в записи числа равно 5

2. Современное решение

//PascalABC.Net 3.0, сборка 1064
begin
  var s:=ReadString('Введите натуральное число: ');
  Writeln('Количество нулей в запиcи числа равно ',s.Where(x->x='0').Count)
end.

Пример:
Введите натуральное число:  13054000230
Количество нулей в записи числа равно 5