Решить в массиве из 20 элементов заполненном целыми числами из интервала [0; 1000] найти количество четных двузначных чиселpascalabc)

// PascalABC.NET 3.1, сборка 1214 от 09.04.2016
begin
  var n:=ArrRandom(20,0,1000).Println.
    Where(x->(x>9) and (x<100)).Count;
  Writeln('Количество двухзначных чисел равно ',n)
end.

Тестовое решение:
310 202 752 389 189 668 734 25 988 561 710 26 847 870 655 984 528 746 93 135
Количество двухзначных чисел равно 3

Const n = 20;
var a:array[1..n]of integer;
k,i:integer;
begin
  for i:=1 to n do begin
    a[i]:=random(1001);
    write(a[i],' ' );
    if (a[i]>9)and(a[i]<100) and (a[i] mod 2 =0) then k:=k+1;
  end;
  writeln;
  writeln('Количество четных двузначных: ',k);
end.

1. по векторам:

использовать чертежник

алг

нач

сместиться на вектор (1.75,0)

опустить перо

сместиться на вектор (0.5,0)

сместиться на вектор (0,0.5)

сместиться на вектор (1,0)

сместиться на вектор (-1, 1)

сместиться на вектор (0.75,0)

сместиться на вектор (-1,1)

сместиться на вектор (-1,-1)

сместиться на вектор (0.75,0)

сместиться на вектор (-1,-1)

сместиться на вектор (1,0)

сместиться на вектор (0,-0.5)

поднять перо

сместиться в точку (0,0)

кон

2. по точкам:

использовать чертежник

алг

нач

сместиться в точку (1.75,0)

опустить перо

сместиться в точку (2.25,0)

сместиться в точку (2.25,0.5)

сместиться в точку (3.25,0.5)

сместиться в точку (2.25, 1.5)

сместиться в точку (3,1.5)

сместиться в точку (2,2.5)

сместиться в точку (1,1.5)

сместиться в точку (1.75,1.5)

сместиться в точку (0.75,0.5)

сместиться в точку (1.75,0.5)

сместиться в точку (1.75,0)

поднять перо

сместиться в точку (0,0)

кон

Алгоритм

Тіл

Бақылау

Өңдеу

Алгоритм, алгорифм (ағылш.: algorіthm, algorіsmus — Әл-Хорезмидің атынан шыққан) — бастапқы берілген мәліметтермен бір мәнде анықталатын нәтиже алу үшін қай амалды (жұмысты) қандай ретпен орындау қажеттігін белгілейтін есептерді (мәселелерді) шешу (математикалық есеп-қисаптар орындау, техникалық объектілерді жобалау, ғылыми-зерттеу жұмысын жүргізу т.б.) тәсілдерінің дәл сипаттамасы. Алгоритм — математика мен кибернетиканың негізгі ұғымдарының бірі. Алгоритмді орындау алгоритмдік үрдіс деп аталады.