Если число оканчивается цифрой 0, то оно делится на 5. известно, что данное число не делится на 5. следовательно,

"оно не оканчивается на ноль". или, как вариант: "оно не делится и на десять"

Следовательно  цифра не ноль

Программа: const   n = 5;   m = 5;   var   a: array[1..n, 1..m] of integer;   i, j: integer;   function check(i: integer): boolean; var j: integer; begin   check : = false;   j : = 0;   repeat       inc(j);       if a[i, j] < 0 then       begin           check : = true;           exit;       end;   until j = m; end;   function search: integer; var i: integer; begin   search : = 0;   i : = 0;   repeat       inc(i);       if not(check(i)) then       begin           search : = i;           exit;       end;   until i = n; end;   begin   writeln('введите матрицу ', n, 'x', m,': ');   i : = 0;   repeat       j : = 0;       inc(i);       repeat           inc(j);           read(a[i, j]);       until j = m;   until i = n;   writeln('ответ: ', search); end. пример работы программы: введите матрицу 5x5: 3 4 2 3 -2 3 -5 -7 -2 1 8 2 5 4 -4 0 1 2 3 4 1 7 2 -5 2 ответ: 4 * примечание: если во всех строках есть отрицательные элементы, то ответ будет 0 (можно изменить в самой процедуре)

Программа без использования массива: var   i, n, a, max, max2: integer; begin   write('введите количество чисел: ');   read(n);   write('введите числа: ');   for i : = 1 to n do   begin       read(a);       if a > max then       begin           max2 : = max;           max : = a;       end;   end;   writeln('два наибольших значения - ', max2, ' и ', max); end. пример работы программы: введите количество чисел: 6 введите числа: 12 15 5 7 23 7 два наибольших значения - 15 и 23