Question

Определите, что будет напечатано в результате выполнения следующего алгоритма 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.

Answer 1

m1=1-2=-1

m2=4-8=-4  k=3

 

m1=-4

больше нет такого m2 которое удовлетворяет условию  m1 > m2

 

значит k=3

 

а вобще в var ошибка: не указаны m1 и m2, а только некое m