Упр.78 ГДЗ Рабочая тетрадь Босова 9 класс (Информатика)

Ниже вариант решения задания из учебника Босова 9 класс, Бином:

78. Определите, что будет выведено в результате выполнения следующей программы.

a) program a78;

var i, s: integer; sr: real;

const a: array [1…6] of integer = (1, 7, 3, 6, 0, 10);

begin

s:=0;

for i:=1 to 6 do

s:=s+a[i];

sr:=s/6;

writeln (tasksr=task, sr)

end.

Решение:

i 1 2 3 4 5 6

a[i] 1 7 3 6 0 10

s i sr

0 - -

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;

begin

for i:=1 to 7 do a[i]:=i*3;

k:=0;

for i:=1 to 7 do

if a[i]>10 then k:=k+1;

writeln (taskk=task, k)

end.

Решение:

i 1 2 3 4 5 6 7

a[i] 3 6 9 12 15 18 21

k i

0 -

0 1

0 2

0 3

1 4

2 5

3 6

4 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);

begin

m:=0; n:=0; k:=0;

for i:=1 to 7 do

begin

if a[i]>0 then m:=m+1;

if a[i]

if a[i]=0 then k:=k+1;

end;

writeln

end.

Решение:

i 1 2 3 4 5 6 7

a[i] -1 7 -3 -6 0 1 2

i m n k

- 0 0 0

1 0 1 0

2 1 1 0

3 1 2 0

4 1 3 0

5 1 3 1

6 2 3 1

7 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);

begin

d:=1; m:=a[1];

for i:=2 to 6 do

if m

d:=i;

m:=a[i]

end;

writeln (taskd=task, d)

end.

Решение:

i 1 2 3 4 5 6

a[i] 1 -7 3 6 0 -10

i d m

- 1 1

2 1 1

3 3 3

4 4 6

5 4 6

6 4 6

Ответ: d = 4