Задачи анализ и поиска в массивах

В таблице 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 begin
                      if Dat[k] <= 10 then day := day+1;
                     end;
  writeln(day);
end.

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

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

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

var Dat: array[1..7] of integer;
    k, day: integer;
begin
  Dat[1] := 19; Dat[2] := 21;
  Dat[3] := 20; Dat[4] := 23;
  Dat[5] := 24; Dat[6] := 25;
  Dat[7] := 23;
  day := Dat[1];
  for k := 1 to 7 do begin
                       if Dat[k] > day then day := Dat[k]
                     end;
  writeln(day);
end.

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

Var t, m: integer;
  Lose: array[1..10] of integer;
Begin
  Lose[1] := 1; Lose[2] := 5;
  Lose[3] := 3; Lose[4] := 6;
  Lose[5] := 7; Lose[6] := 12;
  Lose[7] := 1; Lose[8] := 3;
  Lose[9] := 3; Lose[10] := 1;
  m := 0;
  For t := 1 to 10 Do
    If Lose[t] > 3 Then Begin
                           m := m + Lose[t];
                        End;
  Writeln(m);
End.

В таблице Sea хранятся данные о количестве россиян, отдыхавших на Чёрном море (Sea[l] - число россиян в 2001 году, Sea[2] - в 2002 и т. д.). Определите, какое число будет напечатано в результате работы следующей программы.

Var k, s: integer;    
    Sea: array[1..12] of integer;
Begin    
  Sea[1] := 170; Sea [2] := 170;
  Sea [3] := 190; Sea [4] := 210;
  Sea [5] := 230; Sea [6] := 220;
  Sea [7] := 240; Sea [8] := 160;
  Sea [9] := 190; Sea [10] := 210;
  Sea [11] := 170; Sea [12] :=170;
  s := 100;    
  For k := 1 to 12 do    
    If Sea [k] > 220 then Begin    
                            s := s + Sea [k];    
                          End;    
  Writeln(s);    
End.