Напишите программу на языке паскаль. Подсчет количества элементов больше 30
sobik21
1
17.05.2020 19:38
7
Другие вопросы по теме Информатика
leraya08
12.05.2019 20:03
dilnazka3
12.05.2019 20:02
Axelion9000
07.05.2020 15:10
egor572
07.05.2020 15:11
Nekomimi11
28.08.2019 08:00
Спроситель5
01.04.2019 17:20
Andrew12331
01.04.2019 17:20
mayer3
01.04.2019 17:20
holoupail
01.04.2019 17:20
Популярные вопросы
- С какой скоростью математический Маятник будет проходить положение равновесия если...
1 - Докажите неравенствo b в квадрате+5 больше равно 10(b-2)...
1 - Знаменитые люди сословий:1) мещане2) духовенство при Екатерине...
2 - Упражнение 1 . Заполните пропуски в данных предложениях одним из причастий, указанных...
2 - Задача из ЕГЭ. Код писать на Python3. Андрей готовился к ЕГЭ по информатике и встретил...
3 - Когда началась и когда закончилась Русско-Японская Война? Опишите осаду Порт-Артура,...
1 - 8. В трех ящиках 123,9 кг фруктов. В первый день было продано - часть от общегоКоличества...
2 - Выявление локальных конфликтов в россии на рубеже 20-21вв.С литературой нужно...
3 - Сколько кубиков сахара поместится в куб с гранью 6 см если один кубик сахара имеет...
3 - Представьте 0,5 и -2/3 в виде логарифма по основанию 3...
3
var n, k, i, a:Integer;
begin
readln(n);
for i := 1 to n do
begin
readln(a);
if a > 30 then
begin
k:=k+1;
end;
end;
writeln(k);
end.