Question

дан массив целых чисел из N элементов заполненный случайным образом числами из промежутка[ -1000; 1000]. Найти количество двухзначных элементов в pascal.

Answer 1

const N = 1000;

var A: array [1..N] of integer;

i,k: integer;

begin

k:=0;

for i:=1 to N do  

A[i]:=random(2001)-1000;

for i:=1 to N do  

if ((A[i]>=10) and (A[i]<=99)) or ((A[i]>=-99) and (A[i]<=-10)) then  

 k:=k+1;

writeln(k);

end.