Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Заполнить массив случайными числами в диапазоне 1000..2000 и подсчитать число элементов, у которых вторая с конца цифра - четная

Ответ оставил Гость

Const n=5;
var
a: array[1..n] of integer;
i, k: integer;
begin
randomize;
for i:=1 to n do //заполняем массив
a[i] := random(1000) + 1001;
k:=0;
for i:= 1 to n do
if (a[i] div 10) mod 2 = 0 then //если 2я c конца цифра элемента четная
inc(k); //то увеличиваем k на 1
writeln(k);
end.