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

Question

Информатика

Денис

18 февраля, 16:32

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

+3

Ответы (1)

Знаете ответ?

Кетевань · Answer 1

m1=1-2=-1

m2=4-8=-4 k=3

m1=-4

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

значит k=3

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