How to solve this problem completely, right from A to Z?

1. var a:array[1..100] of integer;
i,s:integer;
begin
for i:=1 to 25 do begin
a:=random(5)+1;
write(a:4);
end;
s:=0;
for i:=1 to 25 do begin
if a<=2 then s:=s+1;
end;
writeln;
writeln('Количество неуспевающих=',s);
end.

 

List<int> arr = new List<int>() { 10, 10, 15, 4, 4 };
Console.WriteLine(string.Join(" ", arr.FindAll(x => x < 10).Count));

Code

List<int> arr = new List<int>() { 10, 10, 15, 4, 4 };

Console.WriteLine(string.Join(" ", arr.FindAll(x => x < 10).Count));