Люди вас, , я уже долго сижу над этой ,не могу решить, ! = найти номер третьего положительного элемента в потоке из 10 чисел или сообщить,что трех положительных элементов нет. (решать без массива)
1Дарина1234
3
19.05.2019 02:50
0
Другие вопросы по теме Информатика
ДаняПрохоров
14.02.2020 11:39
тоня119
08.12.2020 13:18
akhmedkhatataev95
08.12.2020 13:19
Настя0857
08.12.2020 13:20
Ahelka99
02.11.2020 20:10
Танек47896
02.11.2020 20:09
HelpmeTT
05.09.2019 18:10
kyrenkovalena8
06.08.2022 01:14
Популярные вопросы
- Решите етот тест 1 виберіть словосполученняА)овочі та фруктиБ)щебечуть пташкиВ)намалювати...
2 - Как на казахском языке переводиться слово МОЛ?...
2 - Найди число, если 2/7(дробь) этого числа равны 14. ответ: у меня 20 мин осталось...
2 - 16 лошадей археологи нашли в южном Казахстане верно или не верно...
1 - 4. Используя ключевые А.Байтурсынова в развитие науки Казахстана. Приведите...
2 - 12. 12. Тортайға берілген мінездемені тап *( : 1)A) Үстінде мақталы жыртықшапан,...
2 - дам ЧтениеЗаданиеПрочитайте текст, выполните задания к нему и ответьте на...
1 - Сөйлемдерді сыңарымен сәйкестендір. Соотнесите предложения. 1 кыз баланың...
3 - Б). Найдите ошибки в тексте, дайте верный вариант. Военная компания России...
3 - 1. Определите «верные» или «неверные» утверждения. Для неверных приведите...
2
Program Pr1;
uses crt;
var i,a,b,c:integer;
begin
clrscr;
b:=0;
for i:=1 to 10 do begin
readln(a);
if a>0 then b:=b+1;
if b=3 then begin
c:=a;
b:=11;
end;
end;
if b<3 then writeln('3 chisel >0 net')
else writeln(c);
end.
Обращайся ести что