Заполнить массив случайными числами в интервале [1000; 2000) и подсчитать число элементов у которых вторая с конца цифра четная.
biobiobio
3
06.03.2019 23:00
6
Другие вопросы по теме Информатика
илья1899
23.12.2020 08:06
XXXOtlichnikXXX
23.12.2020 08:06
makstaira2203
23.12.2020 08:06
лолодоидтд
02.11.2020 14:50
andryshaua1
26.05.2019 22:40
zaira1979zaira11
26.05.2019 22:40
Юліан11
26.05.2019 22:40
Емаилком002
17.04.2020 06:48
Популярные вопросы
- 7. Розв’яжіть рівняння √(х-3)² = 7. очень надо...
1 - За счёт чего у рептилий большая подвижность головы...
3 - Разложите на множители x2-10x-10y-y2...
3 - Как раньше называлась Ленинградская область? Когда область стала называться...
2 - Каковы последствие трансатлантической работорговли...
1 - длина прямоугольника равна сумме утроенного значения ширины и числа 2...
2 - НАДО ЗДАТЬ ЧЕРЕЗ ПАРУ МИНУТ...
1 - Род «Сказка о рыбаке и рыбке» (лироэп,эпич и т.д.)...
2 - 1. Зигфрид үйіне келген қонақ балалармен не ойнайды? А) алтыбақан В) арқан...
1 - Останні дві цифри числа - нулі...
2
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.