Рассмотрим вариант решения задания из учебника Босова 9 класс, Просвещение: 78. Определите, что будет выведено в результате выполнения следующей программы.a) program a78;var i, s: integer; sr: real;const a: array [1…6] of integer = (1, 7, 3, 6, 0, 10);begins:=0;for i:=1 to 6 dos:=s+a[i];sr:=s/6;writeln ('sr=', sr)end.Решение:i 1 2 3 4 5 6a[i] 1 7 3 6 0 10s i sr0 - -1 1 -8 2 -11 3 -17 4 -17 5 -27 6 -27 6 4,5Ответ: sr=4,5б) program b78;var i, k: integer;a: array [1…7] of integer;beginfor i:=1 to 7 do a[i]:=i*3;k:=0;for i:=1 to 7 doif a[i] > 10 then k:=k+1;writeln ('k=', k)end.Решение:i 1 2 3 4 5 6 7a[i] 3 6 9 12 15 18 21k i0 -0 10 20 31 42 53 64 74 7Ответ: k=4в) program v78;var i, m, n, k: integer;const a: array [1…7] of integer = (-1, 7, -3, -6, 0, 1, 2);beginm:=0; n:=0; k:=0;for i:=1 to 7 dobeginif a[i] > 0 then m:=m+1;if a[i] < 0 then n:=n+1;if a[i]=0 then k:=k+1;end;writelnend.Решение:i 1 2 3 4 5 6 7a[i] -1 7 -3 -6 0 1 2i m n k- 0 0 01 0 1 02 1 1 03 1 2 04 1 3 05 1 3 16 2 3 17 3 3 17 3 3 1Ответ: m = 3, n = 3, k = 1г) program g78;var i, d, m: integer;const a: array [1…6] of integer = (1, -7, 3, 6, 0,-10);begind:=1; m:=a[1];for i:=2 to 6 doif m < a[i] then begind:=i;m:=a[i]end;writeln ('d=', d)end.Решение:i 1 2 3 4 5 6a[i] 1 -7 3 6 0 -10i d m- 1 12 1 13 3 34 4 65 4 66 4 66 4 6Ответ: d = 4
