Question

1)В таблице Ball хранятся отметки по контрольной работе (Ball[1] − отметка 1 ученика, Ball[2] − отметка 2 ученика и т.д.). Определите, что будет напечатано в результате работы следующего алгоритма.

var k, c: integer;
Ball:array[1..10] of integer;
begin
c := 0;
Ball[1] := 4; Ball[2] := 5;
Ball[3] := 3; Ball[4] := 4;
Ball[5] := 2; Ball[6] := 5;
Ball[7] := 4; Ball[8] := 3;
Ball[9] := 4; Ball[10] := 5;
for k := 1 to 10 do
if Ball[k] >4 then
c := c + 1;
write(c);
end.
2)В таблице Dat хранятся данные ежедневных измерений температуры воздуха (Dat[1] − температура в понедельник, Dat[2] − во вторник и т.д.). Определите, что будет напечатано в результате выполнения следующего алгоритма.

var
Dat: array[1..7] of integer;
k, day: integer;
begin
Dat[1] := 9; Dat[2] := 11;
Dat[3] := 10; Dat[4] := 13;
Dat[5] := 8; Dat[6] := 5;
Dat[7] := 11;
day := 0;
for k := 1 to 7 do
if Dat[k] <= 10 then
day := day + 1;
writeln(day);
end.
3)В таблице Dat хранятся данные измерений среднесуточной температуры за 10 дней в градусах (Dat[1] — данные за первый день, Dat[2] — за второй и т. д.). Определите, какое число будет напечатано в результате работы следующей программы.

Var k, m: integer;
Dat: array[1..10] of integer;
Begin
Dat[1] := 2; Dat[2] := 5;
Dat[3] := 7; Dat[4] := 5;
Dat[5] := 4; Dat[6] := 2;
Dat[7] := 0; Dat[8] := 2;
Dat[9] := 4; Dat[10] := 5;
m := 0;
for k := 1 to 10 do
if Dat[k] > 3 then
m := m + 1;
writeln(m);
End.

Answer 1

1) 3

2) 4

3) 6

(ограничение в двадцать символов, поэтому пишу эту строку, не обращай внимания)