Павел
АК
Анастасия Кондрашова
j:=1;
while (j<=n-1) and (sign(a[j])<>sign(a[j+1])) do inc(j);
writeln(j=n-1);
ВЛ
Виктор Лебедев
Пишите на почту или в асю 586178755 решу все в кратчайшие сроки)
Похожие вопросы