Вместо цикла for использовать цикл repeat так, само состоит в том, чтобы ввести n различных чисел найти количество положительных чисел и составить блок-схему с repeat var a,n,i,k: integer; begin readln(n); k: =0; for i: =1 to n do begin readln(a); if a> 0 then k: =k+1; end; writeln(k); end.
nikitavor7135
3
12.09.2019 20:40
2
Другие вопросы по теме Информатика
alisapogorlyakoz2epw
30.07.2019 16:00
rona3
30.07.2019 16:00
Dasha2302
26.10.2020 18:20
diana04s
23.10.2020 12:00
imbiz
23.10.2020 12:03
12абра
23.10.2020 12:09
ладнобудеттакойник
12.08.2019 19:50
Популярные вопросы
- Кто такой дьяк в повести ночь перед рождеством?...
3 - Ch3-ch2-ch(вниз c2h5)-ch2-ch(вниз ch3)-ch2-ch3 как называется...
1 - 1)при каких значения переменной дробь x+3 x(x-3) не имеет смысла? 2) найдите...
1 - Корень четвертой степени из пяти восьмых умножить на корень четвертой степени...
3 - Длина стола 0.80м запишите длину стола в мм . см. дм притом в стандартном...
3 - Периметр четырёхугольника abcd равен 100 см сторона ab равна 41 см сторона...
1 - Беззаботный,бестолковый,беспечный,бесчувственный,бездушный.бессердечный,бесконечный,беспредельный,безбрежный.это...
1 - Кусок меди массой 1,2 кг,остывая до температуры 20°c выделил 114кдж тепла....
2 - На какие числа можно разделить число 65...
3 - Как отличить съедобные грибы от ядовитых среди двойников? зарание огромное.жду....
2
Var a,n,i,k:integer;
Begin
Readln(n);
k:=0;
i:=0;
repeat
i:=i+1;
readln(a);
if a>0 then k:=k+1;
until i=n;
Writeln(k);
End.
Пример:
5
53
-78
67
-12
40
3