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.