![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
FLO |
![]()
Сообщение
#1
|
Гость ![]() |
ПОмогите плиз!!! Натолкните на путь истинный!
Пусть задана очередь, состоящая из чисел n1,n2,n3,..,nk. Составить программу, которая определяла бы количество положительных и отрицательных чисел. Огромное спасибо! |
![]() ![]() |
Flo |
![]()
Сообщение
#2
|
Гость ![]() |
Что-то не получается.. Нужна ваша помощь.. Не откажите, ПЛИЗ!!!
Код Type Fifo=^Elem; Elem=record; Data:real; Next:fifo; End; Var nachalo, p, last:fifo; n,x,Pol,Otr:integer; begin writeln(‘vvedite n:’); readln(n); nachalo:=nil; last:=nil; while n>0 do begin write(x); if nachalo=nil then begin new(nachalo); nachalo^.data:=x; nachalo^.next:=nil; last:=nachalo; end else begin new(p); p^.data:=x; p^.next:=nil; last^.next:=p; last:=last^.next; end; end; p:=nachalo; Pol:=0; Otr:=0; While p<>nil do Begin If p^.data>0 then Pol:=Pol+1 else Otr:=Otr+1; P:=p^.next; End; Writeln(Pol; Otr) End. |
![]() ![]() |
![]() |
Текстовая версия | 24.06.2025 13:12 |