Найти количество чисел большее 1-му , 10 данных целых чисел.(паскаль)
VIXXX
2
04.10.2019 21:10
0
Другие вопросы по теме Информатика
Додоша18
22.12.2019 09:57
Эля6979
22.12.2019 09:53
Sashalizer
22.12.2019 09:45
Тупой7А
26.01.2021 09:18
shovkoplyas123456
26.01.2021 09:17
Tanya201411
26.01.2021 09:17
dmit0
26.01.2021 09:15
oleygoroz44xd
26.01.2021 09:15
SHEVENIST
03.03.2021 07:51
Популярные вопросы
- Сделайте таблицу витаминов с тремя колонками: 1) название витамина 2) роль избытка...
3 - Масса угля 5 кг , примеси 30 % , вычислить массу кислорода...
2 - Предложения с междометиями из произведениях 5 предложений и кто написал...
2 - Бабушка решила разделить пряники между внуками поровну.она подсчитала что если...
2 - Решить уравнение (x-3)^2-(x+1)^2=12...
3 - Друзі терміново на ! синтаксичний розбір речення. обабіч широкого камянистого шляху,жовто-гарячими...
3 - Решить уравнение (x-3)^2-(x+1)^2=12...
2 - Не понимаю вообще условие: известно что x1 и x2 -корни уравнения 3x(в квадрате)+7x-11=0....
1 - Треугольник авс - равнобедренный. мр||вс и мр||кн. угол в=70°. ам: мв=1: 2, мк:...
2 - 1. образ какой россии - дворянской или крестьянской - воссоздаёт лермонтов в стихотворении...
3
begin
y:=0;
for i:=1 to 10 do
begin
readln(x);
if x>1 then inc(y);
end;
writeln(y);
end.