Question

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

Answer 1

// 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

Answer 2

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.