Автор Алексей Пучнин задал вопрос в разделе Другие языки и технологии
Несколько программ в паскале. и получил лучший ответ
Ответ от И.А. Голованов[гуру]
1) заменить for i:=1 to N do readln(a[ i ]); на j=0; k=0; for i:=1 to N do begin readln(a[ i ]); if a[ i ] >0 then j:=j+1; if j=3 then k:=i; end; writeln(k)
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: Несколько программ в паскале.
из чего состоит кварк?
Предкварки (pre-quarks) — гипотетических сущностей, относящихся к структурному уровню материи,
подробнее...