Определите, что будет напечатано в результате выполнения следующего алгоритма var k,m,i: integer; mas: array[1..10] of integer; begin mas[1]: =12; mas[2]: =43; mas[3]: =48; mas[4]: =56; mas[5]: =76; mas[6]: =73; mas[7]: =36; mas[8]: =96; mas[9]: =69; mas[10]: =25; k: =0; m1: =mas[1] div 10 - mas[1] mod 10; for i: =2 to 10 do begin m2: =mas[i] div 10 - mas[i] mod 10; if m1 > m2 then begin m1: =m2; k: =i; end; end; write(k); end.
m1=1-2=-1
m2=4-8=-4 k=3
m1=-4
больше нет такого m2 которое удовлетворяет условию m1 > m2
значит k=3
а вобще в var ошибка: не указаны m1 и m2, а только некое m