Pascal, цикл для, составить программу.
3)Последовательно вводятся 10 целых чисел. Определить каких среди них больше: положительных или отрицательных.

program up1;var i,q,w,e:integer;begin for i:=1 to 10 dowrite('введите число');read(q);if q>0 then w:=w+1;if q<0 then e:=e+1;end;write(w,' положительных ',e,' отрицательных');end.