Filip1is

22.10.2021 00:58 •  Информатика

Что будет выведено на экран? и кратко описать как получили ответ 1. var i, m, d: integer; day: array[1..7] of integer; begin day [1]: =79; day[2]: =25; day [3]: =67; day[4]: =80; day [5]: =63; day[6]: =17; day [7]: =68; d: = 1; m: = day [1]; for i: =2 to 7 do begin if day [i] > m then begin m: = day [i]; d: =i end end; write(d); end. 2. var i, k, d: integer; e: array[1..12] of integer; begin e[1]: =125; e[2]: =234; e[3]: =168; e[4]: =89; e[5]: =108; e[6]: =86; e[7]: =108; e[8]: =648; e[9]: =259; e[10]: =386; e[11]: =250; e[12]: =367; d: = 1; k: =e[1]; for i: =2 to 12 do begin if e[i] < k then begin k: =e[i]; d: =i end end; write(d); end. 3. var k, m: integer; dat: array[1..10] of integer; begin dat[1] : = 7; dat[2] : = 9; dat[3] : = 10; dat[4] : = 5; dat[5] : = 6; dat[6] : = 7; dat[7] : = 9; dat[8] : = 8; dat[9] : = 6; dat[10] : = 9; m : = 0; for k : = 1 to 10 do if dat[k] < 7 then begin m : = m + 1 end; 4. var k, m: integer; dat: array[1..11] of integer; begin dat[1] : = 20; dat[2] : = 25; dat[3] : = 19; dat[4] : = 25; dat[5] : = 26; dat[6] : = 22; dat[7] : = 24; dat[8] : = 28; dat[9] : = 26; dat[10] : = 21; dat[11] : = 27; m : = 0; for k : = 1 to 11 do if k > 9 then begin m : = m + dat[k] end; writeln(m) end. 5. var k, m: integer; dat: array[1..11] of integer; begin dat[1] : = 20; dat[2] : = 25; dat[3] : = 19; dat[4] : = 25; dat[5] : = 26; dat[6] : = 22; dat[7] : = 24; dat[8] : = 28; dat[9] : = 26; dat[10] : = 21; dat[11] : = 27; m : = 30; for k : = 1 to 11 do if dat[k] < m then begin m : = dat[k] end; writeln(m) end.