В массиве посчитать количество элементов больших чем 11(Элементов массива 23.Массив...

Question

В массиве посчитать количество элементов больших чем 11(Элементов массива 23.Массив вводится случайным образом в интервале [1;14]

Answer 1

Можно и без массива. 
var
 n,m,k,i,l:longint;
begin
 for i:=1 to 23 do 
 begin
 readln(m);
 if m>11 then inc(k);
end;
writeln(k);
readln;
end.

С массивом:
var
 n,m,k,l,i:longint;
 a:array[1..100]of longint;
begin
 for i:=1 to 23 do readln(a[i]);
 for i:=1 to 23 if a[i]>11 then inc(k);
writeln(k);
readln;
end.
 

Comments

а если с массивом,сможете написать?