Dat: array(1..101 of integer, begin dat (1) - 2; dat (2] : 2; dat (3) : 3; dat (4) : 3; dat (5) - 4; dat (6) : - 4; dat (7): 5; dat (8) - 5; dat (9) : = 6; dat(10) - 6; m : - dat(1); day : - 1; for k: - 2 to 10 do if dat(k) > m then begin m : - dat (k): day : - k; end; writeln (day); end.

evbarseguan    1   24.05.2019 23:51    6