Составить блок-схему алгоритма определения суммы положительных чисел из десяти.
Ирма69
3
27.03.2019 23:00
0
Другие вопросы по теме Информатика
Лина14881
05.11.2021 14:17
natulsen
17.09.2019 14:30
EmiliKotik123
17.09.2019 14:20
Potap4uk
19.05.2021 10:26
katya8787871
19.05.2021 10:25
MashaNicoleta
19.05.2021 10:25
aodemidov
30.07.2019 19:20
igcifxitsizoufzoyuc
30.07.2019 19:20
Популярные вопросы
- нужна с тестом по Английскому Языку! Дополнить предложения соответствующим...
3 - Выполни частичный синтаксический разбор предложения по следующей схеме: 1....
1 - 1.Form the compound nouns 1. Cup a) room 2. note b) paper 3. bed c) cut 4....
1 - Развернутый план внешней политики россии в конце 20 века...
2 - С территории РФ уезжает гражданин РФ(физическое лицо), которого задерживают...
3 - В треугольнике авс угол с равен 90, АВ=18СМ, АС=9СМ. Чему равен угол А. С...
1 - Тестові завдання1. Морфологічну помилку допущено у варіантіАналити ситраБ...
1 - Координаты точек: A(−1,5;−1), B(−2,5;1,5), C(1,5;0,5), D( ; ), E(4;−1), K(...
3 - Какие значения Yнаим и Yнаиб функции y=-x^2? [1; 3) [-2; 0) (0; 2) (-1; 0)...
1 - Сочинить четверостишье про коронавирус, связанное с футболом, ФК Ротор и...
1
Program pr;
uses crt;
Var i,a,x:integer;
Begin
x:=0;
for i:=1 to 10 do
Begin
readln(a);
if a>0 then x:=x+1;
end;
Writeln('Кол-во положительных чисел= ', x);
readln;
end.