Склавиатуры последовательно вводится 10 чисел. найти количество положительных чисел. решите на паскале.
WayneGames
1
22.06.2019 18:50
1
Другие вопросы по теме Информатика
NiceLeave
24.02.2021 10:32
ZoeK
04.05.2020 13:39
edvinmanovskij
23.04.2020 08:14
Wika201720062006
08.02.2021 11:12
mozg37
08.02.2021 11:12
gspd000
27.09.2019 15:53
Ардак00000000
27.09.2019 17:10
sonyaflayps29
27.09.2019 15:53
Популярные вопросы
- Вшестом классе учатся 25человек сколькими можно выбрать из них...
1 - Zn(oh)2+h2so4→znso4+h2o нужно составить уравнение...
1 - Какая выталкивающая сила, действует на деревянный ящик объемом...
2 - Как посать гробница или грабница и проверочное слово...
1 - Вдвух бочках было 12 ведер воды.когда в первую бочку долили еще...
2 - Морфологическии разбор слова являться...
3 - Какие звуки может обозначать буква с? ответ докажите примерами...
3 - Напишите примеры непереходных и переходных глаголов (по 6)...
3 - Можно ли из единичных кубиков склеить тело поверхность которого...
1 - Какие синонимы к словам скучает , порадовать и антонимы к словам...
2
var a,k,i:integer;
begin
k:=0;
for i:=1 to 10 do
begin
readln(a);
if a>0 then k:=k+1;
end;
write(k)
end.