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

Помогите решить В массиве из 20 элементов заполненном целыми числами из интервала [0;1000] найти количество четных двузначных чисел.(PascalABC)
Гость
Ответ(ы) на вопрос:
Гость
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.
Гость
// 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
Не нашли ответ?
Ответить на вопрос
Похожие вопросы