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

• var a: array
  \[1\.\.100\]
  of integer;
• m, k, s, r, i: integer;
• begin
• m := 100;
  k := 0;
• for i := 1 to m do read\(a⟨1⟩\);
• for i := 1 to m do
• if a
  \[i\]
  > 0 then k := k + 1;
• writeln\('Количество: ', k\);
• end.