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