Запиши ответы

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

а) 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 ('sr=', sr)\)

end.

Решение:

i	a[i]
[ ]	[ ]
[ ]	[ ]
[ ]	[ ]
[ ]	[ ]
[ ]	[ ]
[ ]	[ ]

s	i	sr
[ ]	[ ]
[ ]	[ ]
[ ]	[ ]
[ ]	[ ]
[ ]	[ ]
[ ]	[ ]
		[ ]

Ответ:[ ].

б) 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] \gt 10\) then \( k\) : \(=k+1;\)

\(writeln ('k=', k)\)

end.

Решение:

i	a[i]
[ ]	[ ]
[ ]	[ ]
[ ]	[ ]
[ ]	[ ]
[ ]	[ ]
[ ]	[ ]
[ ]	[ ]

i	k
[ ]	[ ]
[ ]	[ ]
[ ]	[ ]
[ ]	[ ]
[ ]	[ ]
[ ]	[ ]
[ ]	[ ]

Ответ:[ ].

в) program \( v78 \) ;

var \(i, m, n, k: integer\) ;

\(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] \gt 0\) then \(m\) : \(=m+1\) ;

if \(a[i] \lt 0\) then \(n\) : \(=n+1\) ;

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

end ;

\( writeln ('m=', m, ' n=', n, ' k=', k)\)

end.

Решение:

i	a[i]
[ ]	[ ]
[ ]	[ ]
[ ]	[ ]
[ ]	[ ]
[ ]	[ ]
[ ]	[ ]
[ ]	[ ]

i	m	n	k
[ ]	[ ]	[ ]	[ ]
[ ]	[ ]	[ ]	[ ]
[ ]	[ ]	[ ]	[ ]

[ ]	[ ]	[ ]	[ ]
[ ]	[ ]	[ ]	[ ]
[ ]	[ ]	[ ]	[ ]
[ ]	[ ]	[ ]	[ ]

Ответ: \(m=\) [ ], \(n=\) [ ], \(k=\) [ ].

г) 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 \lt a[i]\) then begin

\(d\) : \(=i\) ;

\(m\) : \( =a [i]\)

end;

\(writeln ('d=', d)\)

end.

Решение:

i	a[i]
[ ]	[ ]
[ ]	[ ]
[ ]	[ ]
[ ]	[ ]
[ ]	[ ]
[ ]	[ ]

i	d	m
[ ]	[ ]	[ ]
[ ]	[ ]	[ ]
[ ]	[ ]	[ ]
[ ]	[ ]	[ ]
[ ]	[ ]	[ ]

Ответ: \(d=\) [ ].