Вопрос пользователя:
помогите плиз, Заполнить массив случайными числами в интервале [1000;2000) и подсчитать число элементов у которых вторая с конца цифра четная.
Илюха отвечает:
var a:array [1..100] of integer;
i,n:integer;
s:string;
Begin
randomize;
for i :=1 to 100 do
begin
a[i]:= random(1000)+1000;
a[i]:=a[i] mod 100;
a[i]:=a[i] div 10;
if a[i] mod 2 = 0 then n=n+1;
end;
writeln(n);
End.