Люди, прошу вас, помогите пожалуйста, я уже долго сижу над этой задачей, не могу…

Question

95

Люди, прошу вас, помогите пожалуйста, я уже долго сижу над этой задачей, не могу решить, пожалуйста помогите! =(найти номер третьего положительного элемента в потоке из 10 чисел или сообщить, что трех положительных элементов нет. (Решать без массива)

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

sanyaaa · Accepted Answer

54

sanyaaa

15 февраля 2024

Program Pr1; uses crt; var i,a,b,c: integer; beginclrscr; 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. Обращайся ести что)

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: