Подсчёт количества элементов массива, удовлетворяющих заданному условию. Составление и отладка программ. Язык программирования Паскаль

Составьте программу для подсчета количества положительных элементов массива.

Восстановите алгоритм, подсчитывающий количество элементов с заданными свойствами в массиве.

Определите, какое число будет напечатано в результате работы следующей программы. Var k, m: integer; Dat: array[1..10] of integer; Begin Dat[1] := 12; Dat[2] := 15; Dat[3] := 17; Dat[4] := 15; Dat[5] := 14; Dat[6] := 13; Dat[7] := 10; Dat[8] := 13; Dat[9] := 14; Dat[10] := 15; m := 0; for k := 1 to 10 do if Dat[k] > 13 then begin m := m + 1; end; writeln(m); End.