Турбо паскаль ) дан двухмерный массив, найти количество элементов массива меньших 5

Var a: array [0..5, 0..10] of integer;     i, j, c: integer; begin       for i : = 0 to 5 do           for j : = 0 to 10 do               a[i, j] : = random(10);       for i : = 0 to 5 do           for j : = 0 to 10 do               writeln('[', i, ', ', j, '] => ', a[i, j]);       for i : = 0 to 5 do           for j : = 0 to 10 do               if (a[i, j] < 5) then c : = c + 1;       writeln(c); end.

Const n=10000; var a: array [1..n] of integer; b: array [1..n] of integer; i, k: integer; begin writeln ('введите число элементов массива'); readln (k); for i: =1 to k do begin writeln ('введите ',i,' элемент массива');   readln (a[i]); end; for i: =1 to k do begin  b[i]: =a[i]-1; end;   writeln ('первоначальный массив: ');   for i: =1 to k do begin writeln (a[i]); end;   writeln ('конечный массив: ');   for i: =1 to k do begin writeln (b[i]); end;   end.

Если я тебя правильно поняла, то держи: )  var   i,  kol: integer;             a: array[1..10] of integer;       begin            for i: =1 to 10 do readln(a[i]);           kol: =0;           for i: =1 to 10 do                    if a[i]> 5 then kol: =kol+1;           writeln('   ', kol);     end.